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SPECTRUM 16K, 
48K,128,and + 



[J ACORN ELECTRON, %F 
Wm BBC Band B+ 



J COMMODORE 64 and 128 



!n DRAGON 32 and 64 



ZX81 



&JviC2oiftj1 



TANDY TRS80 
COLOUR COMPUTER 
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ADDING EXTRA COMMANDS 



RENUMBER ROUTINE 



AUTO LINE NUMBERING 



BLOCK DELETE 



OTHER COMMANDS 



Make your life easier with this new 
set of programming tools. This 
machine code utility offers many 
routines to help you sort out your 
BASIC programs 

Although all the computers covered in 
INPUTust the same BASIC language, you'll 
be well aware of the variations among the 
different dialects. In fact, it is very rare to find 
even a short program that will run on more 
than one computer. Sometimes it is just a 
matter of variations in the way the commands 
are used but often you'll find that many 
commands implemented on one computer do 
not exist at all on another. Many of the 
commands missed out are those which, while 
not exactly essential to programming, do 
make the programmer's life easier — including 
facilities such as renumber or auto line num- 
bering or hex to decimal conversions, and so 
forth. 

The toolkit program given here for the 
Spectrum and Commodore adds these com- 
mands and others, making it easier for you to 
use and program your computer. The Acorn, 
Dragon and Tandy do not need a toolkit such 
as this as they already have these commands 
in their standard BASIC. 

The program is in machine code so it can 
remain in your computer at the same time as a 
BASIC program. The instructions for load- 
ing, saving and using the programs are given 
under the separate sections below. 



The Spectrum toolkit offers eight new 
routines — renumber, block delete, bytes free, 
program length, auto line numbering, a tape 
cataloguer and hex to dec or dec to hex 
conversions. These are all called with 
RANDOMIZE USR followed by a number as 
described below. Once a routine is called, the 
program will prompt you for the relevant 
inputs such as the lines to be deleted, the 
number to be converted or whatever. 

The toolkit uses several of the routines 
from the cross-referencer program so you will 
need to join these two programs together. All 
the instructions for doing this are contained 



within the toolkit program. So simply type in 
the program, RUN it and follow the prompts. 
The program will tell you if you have made 
any mistakes entering the DATA. These have 
to be corrected before you can save the 
machine code. 

The program will save the combined tool- 
kit and cross-referencer under the name 
"TOOLKIT" CODE. To load it in at the start of a 
programming session use: 

CLEAR 63488 

LOAD "TOOLKIT" CODE 

The RENUMBER routine is called with 
RANDOMIZE USR 63489. You'll be prompted 
to enter the line increments — any number 
between 1 and 255. 

To find the length of your program type: 

RANDOMIZE USR 63889 

To find the number of bytes free type: 

RANDOMIZE USR 63860. 

AUTO line numbering is called with 
RANDOMIZE USR 641 54. The prompts ask you 



for the start line (1 to 9900) and the line 
increments (1 to 9900). To cancel AUTO 
enter two zeros after the line number appears. 
The routine will then stop with a 'nonsense in 
Basic' message, which you can ignore. 

For BLOCK DELETE call RANDOMIZE 
USR 64000. The prompts ask you for the start 
and end line numbers of the section to be 
deleted. 

For the TAPE CATALOGUE call 
RANDOMIZE USR 63919. The border will start 
flashing. Position your tape at the start of a 
program and press PLAY. Information from 
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the tape header is then displayed. 

To convert from DEC to HEX type 
RANDOMIZE USR 64394 and to convert from 
HEX to DEC type RANDOMIZE USR 64453. 
(For the last routine, there is no need to press 
I after the hex number. 



The Commodore toolkit adds a total of 43 
new commands that can be used in the same 
way as the normal BASIC keywords. 

Type in the program then RUN it to check 
for any mistakes. If you've made an error in 
the DATA lines the program will tell you in 



which line it occurred. 
When the program 
BASIC version using: 

SAVE "TOOLKIT" 



is correct save the 



Then RUN it, type SYS 52480 as instructed to 
create the machine code, then save the ma- 
chine code with one of the new commands 
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you've created: 
@MSAVE49152,53247"MCTOOLKIT",1,1 

It is the machine code version that you'll need 
to load in when you want to use the program. 
To load it type: 

LOAD "MCT00LKIT",1,1 

Now for the commands. Because of the way 
the program works, all of the new commands 
consist of an existing BASIC word plus one or 
two extra characters, and they all start with 
@. The syntax of each command is given 
followed by an explanation and an example 
where necessary. 



THE NEW COMMANDS 



@PPOKE location, address. Eg @PP0KE 
51,16384 pokes the low and high bytes of 
16384 into locations 51 and 52. 
@PPEEK location. Eg @PPEEK 51 prints the 
value of PEEK(51)+ PEEK(52)*256. 
:; POKER start address, number of items (0 
to 255), list of items. Eg @ POKER 
49152,4,12,51,34,15,21 pokes the five data 
items into memory starting at location 49152. 
@P0KES start address, end address, value to 
be poked (0 to 255). This fills up a section of 
memory with the value stated. You can erase a 
section of memory by poking zeros, or you 
can fill part of the screen with characters by 
poking in the screen code for the character in 
the screen memory. 

@BNEW address. This moves the start of 
BASIC to the address stated. 
@GETNEW resets the start of BASIC to 
normal. This is equivalent to an OLD com- 
mand. These last two commands can be used 
to store several programs in memory at the 
same time. For example, you can load in one 
program as usual, then move BASIC with, 
say, @BNEW 16384, and load in another 
program. @BNEW 2048:@GETNEW then re- 
turns you to the old program. 
@NNEW performs a cold start, erasing all 
programs in memory. 

@GGOTO variable allows you to GOTO a 
variable line number. 

@LRESTORE line number lets you restore a 
READ command to a specific line. 
@MGOTO start address, end address, new 
start moves the section of memory between 
the start and end addresses to the new start 
address. 

@MREAD start address, end address prints 
out the contents of the section of memory and 
adds up the total of all the values. A typical 
result might be 12, 32, 65, 22, #131. This 
can be used to create DATA lines of machine 
code with checksums at the end of each line. 
There's a short program to demonstrate this 



at the end of the section. 

@MSAVE start address, end address name of 

machine code program, device number, 1 

saves a section of memory as a machine code 
program. As an example, see the command for 
saving the toolkit program in the first place. 
@MFRE tells you the total amount of free 
memory available for BASIC. 
@COST low byte, high byte. Eg @C0ST6,1 
prints out the value of 6+ 1*256. 
@POST number converts the number into its 
low and high bytes. 

@CCHR$ number of characters {0 to 255), 
ASCII code to be printed. Eg @CCHR$ 6,65 
prints out six letter As. 
@D' decimal number converts to 
hexadecimal. 

@H'$ four digit hex number converts to 
decimal. 

@ONTO step of count (0 to 255) gives 
automatic line numbering in the step stated. 
The start line is whatever you type in first. 
@ONTO IRETURN turns off the previous 
@0NT0 command. Press [SHIfTI plus [RETURNI 
before using this command. 
@RLIST, start line number, step. This is the 
renumber command. Eg @RUST,10,5 re- 
numbers a program starting at line 10 in 
steps of five. Note the first comma in the 
command — you must put this in. 
@WAITGET variable waits for a keypress, the 
name of the variable is unimportant. 
@WAIT' 711 'number of seconds delays for 
specified number of seconds. (The 711 is a 
scale factor.) 

@PRINT% ink(0 to 15), X (0 to 39), Y (0 to 
24), text to be printed. This prints the text in 
the ink colour at coordinates X,Y. 
@COR ink (0 to 15), border colour (0 to 15), 
paper colour (0 to 15) sets up colour scheme. 
@CLR' number (0 to 24) clears line specified 
on the screen. 

@SCLR clears whole screen. 
@SNEW resets screen. 
@UP scrolls screen up one line. 
@SYS1 turns screen off. 
@SYS0 turns screen on. 
@ASC1 forces lower case characters. 
@ASC0 forces upper case characters. 
@ON1 disables [SHIFfl . 
@ON0 enables [SHIFfl. 
@DEF1 disables [RUNTsTOPI . 
@DEF0 enables |RUN/ST0P| . 
@FN1 turns on auto repeat. 
@FN0 turns off auto repeat. 
@KCLR clears keyboard buffer (equivalent to 
POKE 198,0). 
@TOP cursor home. 
@SIF clears all sound chip registers. 
@SON voice, volume, A/D, S/R, waveform, 
high byte of note, low byte of note. This can 



be used to set up the parameters for a note. 



CREATING DATA LINES 



As mentioned under @MREAD you can create 
a BASIC program consisting of machine code 
DATA by reading a section of memory. This 
command was used to create the listing of the 
toolkit itself. Assuming you've used an as- 
sembler to create some machine code starting 
at location 49152, the method is as follows. 
First enter these lines then press (RETURN]: 

A = 0:X = 491 52:@CCHR$79,32:?"Q n □ " 

A'10"DATAD";:@MREAD X-rA*15,14-r 
X + A*15 



When you press |RETURN| you'll see the first 
DATA line printed on the s creen. R un the 
cursor over the line and press |RETURN| to store 
the line. 

Then move the cursor to the A = and 
increment the to a 1, press | RETURN | and 
continue the process with the next DATA line. 
Keep incrementing A until all the DATA has 
been entered. This routine gives a program 
with line steps of 10. Change the figure 10 
before the work "DATA " for different line 
steps. 



BLOCK DELETE 



There is no block delete command but this 
can be achieved using two other commands. 
Turn on auto repeat with @FN1 then type 
@0NT0 with a suitable line step relating to 
the step between the lines you want to delete, 
and enter the first line number to be deleted. 
Holding down [RETURN! will effectively delete 
all lines from that point onwards, only stopp- 
ing when you take your finger off [RETURN | . 



5 CLEAR 63488: BORDER 0: PAPER 0: INK 6: 

CLS 
10 PRINT AT 0,10; INVERSE 1;" TOOLKIT " 
12 PRINT AT 8,2;" □ Press any key to load 

cross- □ □ referencer machine code.": 

PAUSE 

14 LOAD "CREF'TODE 

15 CLS : PRINT "Poking TOOLKIT machine 
code. DQDD Please prepare a cassette for 
saving." 

20 LET L = 100: RESTORE L: FOR N = 63489 

TO 64560 STEP 16 
30LETT=0:FORD = 0TO15 
40 READ A: POKE (N + D),A: LETT=T + A: 

NEXTD 
50 READ A: IF AoT THEN PRINT 

"CHECKSUM ERROR IN LINED";L: STOP 
60 LET L=L+10 
70 NEXT N 
100 DATA 62,12,205,48,252,205,60,250,237, 
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67,155,248,42,83,92,1,2019 
110 DATA 0,0,126,254,128,40,9,197,205,184, 

25,193,3,235,24,242,1865 
120 DATA 205,43,45,58,155,248,205,40,45, 

239,4,56,205,162,45,33,1788 
130 DATA 15,39,167,237,66,48,2,207,5,33, 

145,248,126,60,40,32,1470 
140 DATA 35,229,237,91,83,92,42,75,92,167, 

237,82,68,77,235,237,2079 
150 DATA 177,197,229,245,204,157,248,241, 

225,1 93,234,80,248,225,24,220,31 47 
160 DATA 42,83,92,58,155,248,54,0,35,119, 

205,40,45,239,49,192,1656 
170 DATA 56,42,83,92,205,184,25,42,75,92, 

43,167,237,82,216,235,1876 
180 DATA 229,239,224,15,49,56,205,162,45, 

225,112,35,113,43,24,228,2004 
190 DATA 201,224,228,235,236,239,246,255, 

0,0,10,0,229,6,4,35,2148 
200 DATA 126,254,14,40,4,16,248,225,201, 

197,35,35,35,78,35,70,1613 
210 DATA 42,83,92-217,1,1,0,217,205,149,22, 

43,235,167,237,66,1777 
220 DATA 235,48,11,217,3,217,197,205,184, 

25,193,235,24,234,217,197,2442 
230DATA21 7,209,42,1 55,248,205,1 69,48,235, 

42,104,92,35,35,115,35,1986 
240 DATA 114,235,62,0,167,1,9,0,237,66,56, 

17,60,1,90,0,1115 
250 DATA 237,66,56,9,60,1,132,3,237,66,56, 

1,60,209,225,229,1647 
260 DATA 245,130,214,4,245,6,0,56,9,79,40, 

12,205,85,22,35,1387 
270 DATA 24,6,237,68,79,205,232,25,193,241, 

197,79,6,0,9,65,1666 
280 DATA 229,197,35,35,235,42,104,92,1,5,0, 

237,176,193,225,229,2035 
290 DATA 197,239,224,164,5,58,193,164,4, 

224,1,3,225,192,2,56,1951 
300 DATA 205,213,45,193,225,198,48,119,43, 

16,228,229,42,104,92,35,2035 
31 DATA 35,1 26,225,1 98,48,1 1 9,241 ,1 93. 

245,42,83,92,167,229,237,66,2346 
320 DATA 225,48,8,197,205,184,25,193,235, 

24,242,235,35,35,193,126,2210 
330 DATA 128,119,201,62,0,205,48,252,205, 

26,31,33,0,0,62,0,1372 
340 DATA 237,66,229,193,205,43,45,62,254, 

205,1,22,205,227,45,201,2240 
350 DATA 42,75,92,237,75,83,92,62,0,237,66, 

229,62,1,205,48,1606 
360 DATA 252,193,205,43,45,205,227,45,62, 

2,205,48,252,201,221,33,2239 
370 DATA 32,255,17,17,0,175,55,205,86,5,62, 

3,205,48,252,221,1638 
380 DATA 33,32,255,221,126,0,198,6,221,229, 

205,48,252,62,13,215,2116 
390 DATA 62,4,205,48,252,221,225,221,35, 

221,126,0,254,255,40,10,2179 
400 DATA 6,10,221,126,0,221,35,215,16,248, 

62,13,215,62,5,205,1660 



410 DATA 48,252,221,33,32,255,221,78,11, 

221,70,12,195,163,249,205,2266 
420 DATA 142,250,62,10,205,48,252,205,60, 

250,205,110,25,229,62,13,2128 
430 DATA 215,62,11,205,48,252,205,60,250, 

205,110,25,193,32,16,229,2118 
440 DATA 35,35,126,35,95,126,87,225,237,90, 

17,4,0,237,90,229,1668 
450 DATA 197,62,0,237,66,218,87,252,195,89, 

252,6,0,197,205,95,2158 
460 DATA 252,205,115,252,193,254,13,40,26, 

254,58,48,240,214,48,56,2268 
470 DATA 236,245,4,120,254,6,32,4,5,241,24, 

225,241,245,198,48,2128 
480 DATA 215,24,218,221,33,49,255,120,254, 

0,40,207,33,0,0,221,1890 
490 DATA 94,0,221,86,1,241,254,0,40,7,237, 

90,56,13,61,32,1433 
500 DATA 249,221,35,221,35,5,32,231,229, 

193,201,207,5,42,75,92,2073 
510 DATA 237,75,83,92,237,66,192,207,9,62, 

10,205,48,252,205,60,2040 
520 DATA 250,34,30,255,62,13,215,62,12, 

205,48,252,205,60,250,34,1987 
530 DATA 28,255,33,48,48,34,59,255,34,61, 

255,237,75,30,255,205,1912 
540 DATA 115,251,62,2,50,107,92,50,107,92, 

205,149,23,205,176,22,1708 
550 DATA 62,0,205,1,22,33,59,255,6,4,126, 

229,197,205,129,15,1548 
560 DATA 193,225.35,16,245,205,44,15,205, 

23,27,221,33,58,92,221,1858 
570 DATA 203,0,126,32,13,42,89,92,205,167, 

17,62,255,50,58,92,1503 
580 DATA 24,206,42,89,92,34,93,92,205,251, 

25,120,177,32,10,223,1715 
590 DATA 254,13,40,174,205.176,22,207,1, 

237,67,73,92,42,93,92,1788 
600 DATA 235,33,85,21,229,42,97,92,55,237, 

82,229,96,105,205,110,1953 
610 DATA 25,32,6,205,184,25,205,232,25, 

193,121,61,176,40,47,197,1774 
620 DATA 3,3,3,3,43,237,91,83,92,213,205, 

85,22,225,34,83,1425 
630 DATA 92,193,197,19,42,97,92,43,43,237, 

184,42,73,92,235,193,1874 
640 DATA 112,43,113,43,115,43,114,237,75, 

28,255,205,115,251,241,195,2185 
650 DATA 195,250,33,62,255,126,60,254,58, 

40,8,119,11,121,128,176,1896 
660 DATA 200,24,239,62,48,119,43,24,236, 

62,14,205,48,252,205,60,1841 
670 DATA 250,62,13,215,197,62,15,205,48, 

252,193,46,2,96,124,203,1983 
680 DATA 31,203,31,203,31,203,31,230,15, 

205,189,251,215,124,230,15,2207 
690 DATA 205,189,251,215,97,45,32,230,62, 

13,215,201,198,48,254,58,2313 
700 DATA 216,198,7,201,62,16,205,48,252, 

17,85,255,6,4,213,197,1982 
710 DATA 205,95,252,205,115,252,215,245, 



241,193,209,18,19,16,239,62,2581 
720 DATA 13,215,62,17,205,48,252,221,33,85, 

255,17,0,16,33,0,1472 
730 DATA 0,14,4,221,126,0,221,35,214,48, 

218,87,252,254,10,56,1760 
740 DATA 2,214,7,254,16,210,87,252,71,254, 

0,40,3,25,16,253,1704 
750 DATA 203,58,203,27,203,58,203,27,203, 

58,203,27,203,58,203,27,1964 
760 DATA 13,32,208,229,193,205,43,45,205, 

227,45,62,13,215,201,203,2139 
800 CLS: PRINT AT 5,5;" □ 

COMPILATION COM PLETE.D" 
810 PRINT AT 7,2;"PREPARE A CASSETTE 

FOR SAVING." 
820 PRINT AT 9,4;"FILENAME IS " 

"TOOLKIT"" DCODE" 
830 SAVE "TOOLKirCODE 63489,2000 



100 DATA 32,158,183,142,134,2,32,253,174, 
32,1 58,1 83,1 38,72,32, #1725 

101 DATA 253,174,32,158,183,104,168,24,32, 
240,255,32,253,1 74,32, #21 14 

102 DATA 164,170,96,32,158,183,142,134,2, 
32,253,1 74,32,1 58,1 83, #1913 

103 DATA 142,32,208,32,253,174,32,158,183, 
142,33,208,96,32,247, #1972 

104 DATA 183,32,253,174,32,235,183,142,19, 
3,169,0,1 33,2,32, #1592 

105 DATA 253,174,32,158,183,138,164,2,145, 
20,204,19,3,240,5, #1740 

106 DATA 230,2,76,74,192,96,32,138,173,32, 
247,1 83,1 65,20,1 33, #1793 

107 DATA 251,165,21,133,252,32,253,174,32, 
138,173,32,247,183,32,#2118 

108 DATA 253,174,32,158,183,134,2,165,21, 
197,252,144,35,208,6, #1964 

109 DATA 165,20,197,251,144,27,165,2,160, 
0,145,251,165,251,197, #2140 

110 DATA 20,208,6,165,252,197,21,240,9, 
230,251 ,208,234,230,252, #2523 

111 DATA 76,141,192,96,32.138,173,32,247, 
183,165,20,133,251,165, #2044 

112 DATA 21,133,252,32,253,174,32,138,173, 
32,247,183,165,20,133,#1988 

113 DATA 253,165,21,133,254,32,253,174,32, 
138,1 73,32,247,1 83,1 65, #2255 

114 DATA 254,197,252,144,41,208,6,165,253, 
197,251,144,33,160,0, #2305 

115 DATA 177,251,145,20,165,251,197,253, 
208,6,1 65,252,1 97,254,240, # 2781 

116 DATA 15,230,251,208,2,230,252,230,20, 
208,228,230,21, 76,223, #2424 

117 DATA 192,96,32,138,173,32,247,183,165, 
20,133,251,165,21,133, #1981 

118 DATA 252,32,253,174,32,138,173,32,247, 
183,160,0,165,20,145,#2006 

1 1 9 DATA 251 ,1 65,21 ,200,1 45,251 ,96,32,1 58, 
183,32,255,233,96,32, #21 50 

120 DATA 138,173,32,247,183,160,0,177,20, 
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170,200.177,20,32,205, #1934 151 DATA 233,1,133,65,165,96,233,0,133,66, 232,232,224,1 28,208, #2334 

121 DATA 189,96,32,138,173,32,247,183,165, 96,1 62,0,1 81 ,43, #1607 182 DATA 230,162,11,108,0,3,134,2,32,115,0, 
20,133,251,165,21,133, #1978 152 DATA 149,251,232,224,4,208,247,32,138, 32,1 15,0,32, #976 

122 DATA 252,32,253,174,32,138,173,32,247, 173,32,247,183,165,20, #2305 183 DATA 115,0,166,2,189,255,205,133,252, 
183,1 65,21, 197,252,1 44, #2295 153 DATA 133,43,165,21,133,44,32,253,174, 189,0,206,133,253,169, #2267 

123 DATA 61,208,6,165,20,197,251,144,53, 32,138,173,32,247,183, #1803 184 DATA 76,133,251,32,251,0,76,174,167,96, 
169,0,1 33,253,1 33,254, #2047 154 DATA 165,20,133,45,165,21,133,46,32,86, 0,0,0,0,0, #1256 

124 DATA 24,160,0,177,251,170,101,253,133, 225,162,0,181,251, #1665 185 X = 52480:C = 6:GOSUB 200 

253,1 65,254,1 05,0,1 33, #21 79 155 DATA 149,43,232,224,4,208,247,96,32, 186 DATA 0,192,33,192,64,192,96,192,169, 

125 DATA 254,169,0,32,205,189,169,44,32, 158,1 83,1 34,2,32,253, #1997 192,1,193,36,193,43,#1788 
210,255,165,251,197,20,#2192 156 DATA 174,32,158,183,142,19,3,165,2,201, 187 DATA 193,61,193,163,193,189,193,36,194, 

126 DATA 208,6,165,252,197,21,240,9,230, 0,240,1 1,173,19, #1522 48,1 94,51 ,194,54,1 94, #21 50 
251,208,214,230,252,76, #2559 157 DATA 3,32,210,255,198,2,76,79,195,96, 188 DATA 57,194,63,194,69,194,74,194,80, 

127 DATA 104,193,169,35,32,210,255,166, 76,1 54,227,32,1 38, #1773 1 94,86,194,89,1 94,95, # 1 971 

253,1 65,254,76,205,1 89,32, #2338 158 DATA 173,32,247,183,170,169,72,32,210, 189 DATA 194,101,194,107,194,113,194,118, 

128 DATA 138,173,32,247,183,162,0,232,208, 255,1 69,39,32,21 0,255, #2248 194,1 23,1 94,1 32,1 94,1 59,1 94, #2405 
253,1 98,20,1 69,255,1 97, #2467 159 DATA 169,36,32,210,255,138,32,139,195, 190 DATA189,1 94,202,1 94,233,194,8,1 95,65, 

129 DATA 20,208,245,198,21,197,21,208,239, 138,32, 144, 195, 152,32, #1899 195,97,1 95,1 00,1 95,1 59, #241 5 
96,32,158,183,160,0, #1986 160 DATA 139,195,152,32,144,195,96,24,106, 191 DATA 195,215,195,251,195,15,196,73,197, 

130 DATA 224,1,208,2,160,7,224,2,208,2, 106,1 06,1 06,41, 15,24, #1481 0,0,0,0,0,0, #1532 

160,1 4,1 32,2,32, #1378 161 DATA 105,48,201,58,144,2,105,6,32,210, 192 X = 52736:C = 5:GOSUB 200 

131 DATA 253,174,32,158,183,142,24,212,32, 255,96,169,68,32, #1531 193 DATA 153,37,67,176,151,82,151,83,77, 
253,1 74,32,1 58,183,1 38, # 21 48 1 62 DATA 21 0,255,169,39,32,21 0,255,32,1 86, 137,80,1 51 ,1 56,39,80, # 1 620 

132 DATA 164,2,153,5,212,32,253,174,32,158, 195,1 33,34,32,1 86,1 95, #21 63 194 DATA 194,77,135,146,39,83,145,83,139, 
183,1 38,1 64,2,1 53, #1825 163 DATA 170,165,34,32,205,189,76,228,167, 83,1 56,83,1 62,85,80, #1690 

133 DATA 6,212,32,253,174,32,158,183,138, 32,203,1 95,1 0,1 0,10, #1726 195 DATA 165,48,165,49,75,156,150,48,150, 
164,2,1 53,4,21 2,1 42, #1865 164 DATA 10,133,35,32,203,195,101,35,133, 49,1 64,80,1 58,48,1 58, #1663 

134 DATA 19,3,32,253,174,32,158,183,138, 35,96,32,115,0,201, #1356 196 DATA 49,198,48,198,49,145,48,145,49,71, 
164,2,153,1,212,32, #1556 165 DATA 58,41,15,144,2,105,8,96,32,138, 137,66,1 62,77,1 84, #1626 

135 DATA 253,174,32,158,183,138,164,2,153, 173,32,247,1 83,1 69, #1443 197 DATA 146,161,161,162,76,140,77,148,67, 
0,21 2,206,1 9,3,1 73, #1870 166 DATA 91,32,210,255,169,0,166,20,32, 199,78,1 62,68,39,72, #1756 

136 DATA 19,3,164,2,153,4,212,96,162,0,138, 205,1 89,1 69,44,32,210, #1824 198 DATA 39,185,84,190,84,145,164,82,155,0, 
157,0,21 2,232, #1554 167 DATA 255,169,0,166,21,32,205,189,169, 0,0,0,0,0,#1128 

137 DATA 224,25,208,248,96,76,68,229,76,24, 93,32,21 0,255,96,32, #1924 199 X = 52864:C = 5:G0SUB 200:GOTO 205 
229,76,234,232,1 69, #2214 168 DATA 158,183,134,2,32,253,174,32,158, 200 FOR Z = 0TO C:T = 0:FOR ZZ = 0TO 

138 DATA 0,141,138,2,96,169,128,141,138,2, 183,1 38,1 66,2,76,205, #1896 14:READ M:P0KEX,M 

96,1 69,0,1 33,1 98, #1551 169 DATA 189,5,0,0,32,121,0,208,6,169,0, 201 PRINT"nLINE"PEEK(63) + PEEK(64)* 

139 DATA 96,169,237,141,40,3,96,169,251, 141,14,196,96, #1177 256:T = T + M:X = X + 1 

141 ,40,3,96,76, 102, #1660 170 DATA 169,1,141,14,196,169,53,141,4,3, 202 NEXT ZZ:READ X$:IF VAL(RIGHT$(X$, 

140 DATA 229,169,27,141,17,208,96,169,11, 169,1 96,1 41, 5,3, #1405 IEN(X$}-1)) <>T THEN 204 
141,17,208,96,169,21, #1719 171 DATA 32,138,173,32,247,183,165,20,141, 203 NEXT Z:PRINT"OKaH":RETURN 

141 DATA 141,24,208,96,169,23,141,24,208, 1 2,1 96,1 65,21,1 41 ,1 3, # 1679 204 PRINT'ERROR IN UNE!":END 
96,169,9,76,210,255, #1849 172 DATA 196,96,173,0,2,201,48,144,59,201, 205 K = 50505:T = 

142 DATA 169,8,76,210,255,32,138,173,32, 58,1 76,55,1 73,1 4, #1596 206 READA:IFA= -1THEN209 
247,183,76,1 63,1 68,32, #1962 173 DATA 196,240,50,32,124,165,132,2,173, 207 P0KEK,A:K = K + 1 

143 DATA 138,173,32,247,183,169,0,168,145, 12,1 96,24,101,20,1 33, #1600 208 T=T + A:GOTO206 

20,24,1 65,20,1 05,1, #1590 174 DATA 99,173,13,196,101,21,133,98,162, 209 !FT<>52549THENPRINT"HS1 

144 DATA 133,43,165,21,105,0,133,44,76,154, 144,56,32,73,1 88,32, #1521 CHECKSUM ERR0R":END 
227,1 69,62,32,21 0, # 1 574 1 75 DATA 223,1 89,1 33,254,1 32,255,1 60,0, 21 I FK <> 50928 THEN PRINT 

145 DATA 255,169,18,32,210,255,165,55,56, 177,254,240,6,1 53,1 19,2, #2297 "gjgjNUMBER OF VALUES ERR0R":END 
229,45,1 70,1 65,56,229, #21 09 176 DATA 200,208,246,132,198,164,2,96,76, 211 PRINT"USE SYS 52480 TO EXECUTE 

146 DATA 46,32,205,189,169,96,160,228,76, 124,165,0,0,0,0, #1611 MACHINE CODE" 
30,171, 169,0,1 33,1 98, #1902 177 PR1NT"Q":X = 49152:C = 76: 212 END 

147 DATA 1 65,1 98,201,1 ,208,250,76,1 46,1 71 , GOSUB 200 213 DATA 32,253,174,32,107,169,165 
169,8,160,1,145,43, #1942 178 DATA 169,11,141,8,3,169,205,141,9,3,96, 214 DATA 20,133,53,165,21,133,54 

148 DATA 32,51,165,24,165,34,105,2,133,45, 32,1 15,0,201, #1303 215 DATA 32,253,174,32,107,169,165 
133,47,1 33,49,1 65, #1283 179 DATA 64,240,3,76,231,167,160,1,177,122, 216 DATA 20,133,49,165,21,133,50 

149 DATA 35,105,0,133,46,133,48,133,50,96, 133,255,1 60,2,1 77, #1968 217 DATA 32,142,166,32,201,198,32 
32,1 38,1 73,32,247, #1401 180 DATA 122,133,2,162,0,189,128,206,197, 218 DATA 201,198,208,33,32,2,198 

150 DATA 183,165,20,133,63,165,21,133,64, 255,208,9,232,1 89,1 28, #21 60 219 DATA 32,201,198,32,201,198,208 
32,19,166,56,165,95, #1480 181 DATA 206,197,2,240,16,202,201,0,240,6, 220 DATA 3,76,212,198,32,201,198 
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221 DATA 

222 DATA 

223 DATA 

224 DATA 

225 DATA 

226 DATA 

227 DATA 

228 DATA 

229 DATA 

230 DATA 

231 DATA 

232 DATA 

233 DATA 

234 DATA 

235 DATA 

236 DATA 

237 DATA 

238 DATA 



165,99,145,122,32,201,198 

165,98,145,122,32,13,198 

240,226,32,201,198,32,201 

198,32,201,198,201,34,208 

11,32,201,198,240,197,201 

34,208,247,240,238,170,240 

188,16,233,162,4,221,235 

198,240,5,202,208,248,240 

221,165,122,133,59,165,123 

133,60,32,115,0,176,211 

32,1 07,1 69,32,32,1 98,1 65 

60,133,123,165,59,133,122 

160,0,162,0,189,0,1 

240,17,72,32,115,0,144 

3,32,82,198,104,160,0 

145,122,232,208,234,32,115 

0,176,8,32,97,198,32 

121,0,144,248,201,44,240 



246 DATA 

247 DATA 

248 DATA 

249 DATA 

250 DATA 

251 DATA 

252 DATA 

253 DATA 

254 DATA 

255 DATA 

256 DATA 

257 DATA 

258 DATA 

259 DATA 

260 DATA 

261 DATA 

262 DATA 

263 DATA 



98,48,14,32,201,198,197 

20,208,16,32,201,198,197 

21,208,12,162,144,56,32 

73,188,76,223,189,32,201 

198,32,13,198,240,209,32 

114,198,230,251,32,165,198 

230,45,208,2,230,46,96 

32,114,198,198,251,32,141 

198,165,45,208,2,198,46 

198,45,96,32,124,198,160 

0,132,17,132,251,96,165 

122,133,34,165,123,133,35 

165,45,133,36,165,46,133 

37,96,164,17,200,177,34 

164,251,200,145,34,32,190 

198,208,1,96,230,34,208 

236,230,35,208,232,164,17 

177,36,164,251,145,36,32 



266 DATA 165,198,165,34,197,36,208 

267 DATA 4,165,35,197,37,96,160 

268 DATA 0,230,122,208,2,230,123 

269 DATA 177,122,96,32,51,165,165 

270 DATA 34,166,35,24,105,2,133 

271 DATA 45,144,1,232,134,46,32 

272 DATA 89,166,76,116,164,0,137 

273 DATA 138, 141 ,167,-1 
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THE FOP 





So far, you have seen how to use 
the basic words in FORTH and how 
to store information. But in order to 
build up a useful program, you need 
to be able to build up structures. . . 



In this final part of the series of articles on 
FORTH, we take a look at some of the 
operations you may need to use when writing 
a FORTH program. 

FORTH provides control switches which 
enable conditional (comparison) and program 
looping operations in much the same way as 
in BASIC. Most of these structures use logic 
tests, and comparisons. 



COMPARISONS 



Comparisons in a FORTH routine are made 
by a familiar-looking set of logical operators 
(similar to > , < , = and so on in BASIC) 
which set up a logical value termed a flag. 

Flags are used extensively in FORTH and 
are actually numeric values placed on the 
stack to show the outcome of a test. The flag 
value is a zero (0) if the outcome of a 
particular comparison is false, and a non-zero 
value (usually, but not always, 1,) if it's true. 

A typical FORTH routine can be made to 
return a condition — true or false — to indicate 
whether or not something has taken place or 
whether a certain value has been reached, 
perhaps within a specified range. The value of 
the flag may itself be tested by program 
branches and loops (see below), so regulating 
the subsequent program flow. 

Out-and-out comparisons are possible by 
comparing the topmost (first) value on the 
stack with, typically, the second value. The 
comparison operators that test a relationship 
between two stack items take the general 
form: 

<firstvalue> <second value> 
COMPARISON 

So let's look at the comparison operations 
possible. Alongside each word is the 'before 
and after' stack notation, and below this the 
name and description of the word, followed 
by simple 'true' or 'false' examples: 

Word] Purpose Before j After 

Example 

< n1 n2 f 

less-than: leaves a true flag if 5 56 < . 1 OK 

n1 is less than n2, 12 4 < . OK 
otherwise leaves a false flag 



> 



greater-than: leaves a true 
flag if n1 is greater 
then n2, otherwise leaves a 
false flag 



n1 n2 f 

124 > .1 OK 
99 > .0OK 



equals: leaves a true flag if 
n1 equals n2, otherwise 
leaves a false flag 



nl n2 f 

9 9 = . 1 OK 
7 9 = . OK 



0< 

zero-less: leaves a true flag if 
the n is less than zero 
(negative), otherwise leaves 
a false flag 



n f 

-50< .1 OK 
64 0< .0OK 



0= n f 

zero-equals: leaves a true flag if 00= .1 OK 
n is equal to zero, else leaves a 10= . OK 
false flag. Can be used as a NOT 
logical function 



0> 

Leaves a true flag if n is 
greater than zero. Some 
implementations require 
you use the new 
colon definition (word) 
:0> MINUS 0< : 



ORDER OF ENTRY 



n— 
37 0> 
-45 0> 



— f 
1 OK 
0OK 



Note that the operands and comparison 
operators are entered in the same order as 
they would be for a mathematical operation. 
When a FORTH routine encounters the 
words < = and > the top two values are 
removed from the stack and the relevant 
comparison operation is performed. Sub- 
sequently a true or false flag is pushed onto 
the stack and the two values are discarded. 

The zero comparisons pull only the top- 
most value off the stack and compare this with 
zero, returning a 1 or to the stack depending 
on the outcome of the comparison. The words 
< = > < = and > assume — and are 
used for — signed single words for testing the 
relationship between bigger signed and un- 
signed double precision integers and these 
include: D0= D< D= D> and DU<. 
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ORDER OF ENTRY 



LOGICAL OPERATIONS 



BRANCHES AND LOOPS 



IF-ELSE-THEN 



INDEFINITE LOOPS 



BEGIN-WHILE-REPEAT 



NESTING 



DIALECTS 



CHOOSING A SYSTEM 



COMPARISONS 




LOGICAL OPERATIONS 



A full range of logical operations very similar 
to those carried out in any other language are 
also possible in FORTH. (See pages 284 to 
288 for explanations of bitwise logical oper- 
ations in BASIC.) 

Some FORTH implementations do not 
support NOT, which is identical to = , so the 
latter is usually used rather than wasting 
dictionary space on an unnecessary definition. 

Each of the other logical operators — AND, 
OR, and XOR— pulls the top two values from 
the stack before executing the logical oper- 
ation. This is performed in a bit-by-bit 
fashion, as normal (see page 288): 



WordjPurpose 

AND 

Leaves the logical bitwise 

AND result of n1 and n2 



BeforejAfter 
Example 

n1 n2 n3 

1 1 AND . 1 OK 
1 AND. OK 
AND ,0OK 



OR 

Leaves the result of bitwise 

OR between nl and n2 



n1 n2 n3 

1 0OR.1 OK 
1 1 OR . 1 OK 
OR . OK 



XOR 

Leaves the result of an 

exclusive — or of nl and n2 



n1 n2 n3 

1 XOR. 1 OK 
1 1 XOR . OK 
0XOR.0OK 



As in BASIC (and others), the logical 
operators may be used for masking operations 
to switch bit values in memory selectively. 



BRANCHES AND LOOPS 



FORTH uses three important command se- 
quences which amplify the structured nature 
of this language. 

One of the most powerful is the DO 

LOOP which is similar to BASIC's FOR . . . 
NEXT loop and is used in any routine where a 
sequence of steps is to be repeated a fixed 
number of times. 



II 



A LOOP in FORTH is a series of commands 
10 be executed repetitively. The loop is set up 
with a starting value, an end value and the 
desired increment for each iteration or pass — 
these all form what is called the body of the 
loop definition. The value that changes upon 
each iteration is called the index or the control 
variable of the loop, and the ending value the 
limit which, when reached, causes the routine 
to terminate, or exit the loop. 

A DO LOOP definition thus takes the 

form: 

: < routine name > <limit+1> < start 

value > DO < chosen code> LOOP ; 

A value 1 greater than the desired loop limit is 
pushed onto the stack, followed by the chosen 
value, then the loop is entered. A value 1 
greater has to be used because the index is 
incremented before it is compared with the 
specified limit. 

Suppose, for example, you wanted to print 

out the character set . The DO LOO P for 

this takes the form: 

: SET 90 65 DO I EMIT LOOP: 

The code used between DO and LOOP here 
makes use of the FORTH word I which 
fetches the current index of the loop and 
pushes this onto the stack. EMIT is an output 
word covered in an earlier article (see page 
1510). 

By executing SET, upper case portions of 
the ASCII code, starting at 65 (ASCII code 
for A) and ending at 90 (ASCII code for Z) 
are displayed. 

The equivalent BASIC code for this DO — 
LOOP is: 

FOR I =65 TO 90: PRINT CHR$(I): NEXT I 



IF ELSE THEN 



The main tool for conditional branching, as in 

BASIC is the conditional IF ELSE 

THEN routine — often used in conjunction with 
the DO . . . LOOP. These three FORTH words 
are used only in a specific colon definition in 
the format: 

<condition> IF <truepart> THEN 
< continuation > 

or 

< condition > IF <truepart> ELSE 
<falsepart> THEN < continuation > 

When the word which defines this routine is 
executed it first tests the condition (flag) left 
on the top of the stack. IF takes the flag and 
causes the routine to branch to the relevant 
machine code. If the flag is true (that is, it is 
non-zero), execution continues through the 
true part of the definition — the code between 



IF and ELSE in the original definition. If the 
flag is false (0), execution skips to the false 
part — between ELSE and THEN or just after the 
THEN part. In both cases, execution continues 
from this point onwards. 

As in the versions of BASIC that support 
it, ELSE is optional. If it is not present then a 

pure IF THEN condition exists. In this 

case the execution run skips over the con- 
ditional routine if a false value is returned. 



INDEFINITE LOOPS 



Quite often you come across a situation in 
which the number of iterations is not known 
before execution of a loop routine. Special 
looping facilities are provided for these inde- 
finite loops, corresponding to the 'do while' 
and 'repeat until' commands of languages that 
support structured programming. 

The simplest is BEGIN UNTIL which 

takes the form: 

BEGIN < loop conditions and code > <flag> 
UNTIL 

Here the flag is tested just before UNTIL (so 
that the loop code is always executed at least 
once). If the flag returns false, execution loops 
back to just after the BEGIN part. If it returns 
true, execution is directed to after the UNTIL 
part. 

A simple example which performs a key 
test to see if Y has been pressed is: 

: KTEST BEGIN (start loop) 

GET (read keyboard) 

89 = UNTIL; (ASCII value 
of Y = 89) 

So until key Y is pressed, a false condition is 
returned and the program effectively waits 
until a true situation occurs. 



BEGIN WHILE REPEAT 



A variation, BEGIN WHILE REPEAT 

forms a structure which loops indefinitely 
until a specified condition is met, whereupon 
the routine is exited. This takes the format: 

BEGIN < first part > <flag> WHILE 
< second part > REPEAT 

The first part of the routine code is 
executed — if it exists — as soon as this loop 
structure is entered. If the flag returns a true 
report the second part is executed and exe- 
cution returns to just after the BEGIN. If a false 
report results, the program leaves the loop 
and execution continues with the code after 
REPEAT. 

The 'first part' is usually the conditional 
part of the loop. WH I LE actually tests the value 
on top of the stack. 



NESTING 



As with FOR . . . NEXT loops in BASIC, DO - 
- LOOP and IF - - ELSE - - THEN 
routines can be nested. An example of the 
format for a DO LOOP is: 

: < routine name > < limit +1> < start 

value > 
DO 
< second limit +1 > < start value > 

DO < chosen code> 

LOOP 
LOOP: 

In normal circumstances, the index is in- 
cremented on each pass through the loop, but 
other values — including negatives to reverse 
the direction — may be introduced using the 
word + LOOP. This takes the top stack value 
and adds that to the loop index. The latter is 
compared against the limit. 

The nesting of an IF ELSE THEN 

routine can be shown thus: 



IF 


<* 


■ ■ ■ - ■ - * - « * * 


<a> 




# 


<b> 




* 


IF 


<* 


#»#«*!# t 


<c> 




* (outer) 


<d> 




* * 


ELSE 




(inner)' 


<e> 




# f 


<f> 


< 


t f 


THEN 




ELSE 




* 


<9> 




* 


<h> 




* 


THEN 


<"' 


•*•*»****** 



You will often see screen source code for colon 
definitions laid out in this form, with appro- 




Do any of the versions of 
FORTH now available have 
graphics facilities? 

There are versions available both for the 
Commodore 64 and the Acorn which 
support graphics facilities. However, 
because FORTH is designed to deal 
with text and numbers and also to be 
totally transportable, any facility for 
graphics will only be usable on the 
machine for which the implement- 
ation was designed and cannot 
be used on any other micro. 
These facilities are much 
quicker than BASIC. 
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priate annotation in brackets, just so that the 
level of nesting can be seen clearly. 

The various looping and branching rout- 
ines may themselves be nested in each other. 
The allowable configurations include the 
following: 



BEGIN IF- 

UNTIL 
DO BEGIN 

-LOOP 
IF DO BEGIN 

LOOP THEN 



ELSE THEN 

WHILE REPEAT 

■UNTIL 



Whatever arrangement is used each structure 
must be fully contained within another: the 
standard 'rule' about nesting! 



DIALECTS 



There are several important FORTH subsets, 
or dialects, the three most important being 
standard fig-FORTH, polyFORTH and 
FORTH-79. A new standard FORTH-83 has 
been added to update the latter. There are also 
many machine-specific implementations 
based on these standards. 

Because FORTH can be extended to suit 
the user, the question of standards is much 
less important than for other languages. It is 
easy to adapt a program to another, simply by 
using colon definitions to introduce the miss- 
ing word routines to the CURRENT work 
dictionary. 

Here, for instance, is a selection of colon 
definitions for transforming a fairly typical 
fig-FORTH implementation into one that 
will run FORTH-79 programs, in effect by 
merging the two: 



FORTH-79 ; 




VARIABLE 


HERE VARIABLE ; 


2VARIABLE 


VARIABLE 2 ALLOT ; 


CONVERT 


(NUMBER) ; 


>IN 


IN; 


?DUP 


-DUP; 


CREATE 


VARIABLE -2 ALLOT; 


SAVE-BUFFERS FLUSH ; 


NEGATE 


MINUS; 


DNEGATE 


DMINUS; 


0> 


MINUS<0; 


FIND 


-FIND DUP IF 2DR0P 




CFA THEN; 


EXIT 


R> DROP; 


DEPTH 


SP@ S0 @ SWAP - 2 / 


WORD 


WORD HERE; 


MOVE 


T CMOVE ; 


U/MOD 


U/j 


D< 


R0T2DUP = IF ROT 




ROT DMINUS 




D+ 0< ELSE SWAP < 




SWAP DROP 




THEN SWAP DROP ; 






Even in something as mundane as a sequence 
of standard conversions you can see the real 
power of a definition and of FORTH as a 
whole. Take the word D< listed above if 
you're in any doubt — a whole sequence of 
conditional tests and operations summed up 
by just two characters! 



CHOOSING A SYSTEM 



If the choice of dialect does not matter very 
much, there are still other considerations you 



ought to keep in mind to ensure that the 
version you buy is usable. For obvious rea- 
sons, FORTH is rather better suited to use in 
conjunction with disks than with cassettes as a 
certain amount of toing and froing between 
dictionaries and screen inputs is necessary. It 
is possible to save and reload work screens 
from cassette but this can be tedious, detract- 
ing greatly from the fluidity and general 
freedom in programming that forms much of 
FORTH's appeal. 



Another point to note is that because 
FORTH gives you complete access to — and 
thus control of— the computer down to ma- 
chine level (unlike most other high level 
languages), you can actually overwrite parts 
of the FORTH system which cannot be 
protected. System crashes are therefore quite 
frequent when you first start experimenting — 
and experiment you must to get a real 'feel' for 
the power of FORTH. The simple solution is 
to save your current work frequently! 
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CLIFFHANGER: 

TING IT OFF 




The 'CUFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called 'CLIFF HANGER' re- 
leased for the Commodore 64 and published by 
New Generation Software Limited. 



The scene is set, Willie is in position. 
The snakes and the sea are waiting 
in the wings. The boulders are piled 
at the top of the cliff. This program 
now cries: 'ACTION!' 

And now the moment of truth has come. So 
far you should have keyed in and tested all the 
separate routines that make up Cliffhanger. 
Now, this final routine calls them all in the 
correct order and runs the whole game. 

When you've keyed this routine in and run 
it, the game should work. And all the effort 
you've put into typing each part of Cliff- 
hanger will be worthwhile! 

If, however, it does not work properly, 
there will be a special article on debugging 
Cliffhanger in the next part of INPUT. 



jp z,59652 
dll Id b,50 
delb Id a,255 
dela dec a 

jr nz,253 

djnz 251 

Id a,254 

in a,254 

bit 0,a 

jr nz,alp 

ret 

When you have this routine, and all the 
others, in memory, start the game by keying 
in the instruction: 

:USR 58576 

As you will see, the call address is that of the 
label gbin at the beginning of the initialization 
routine on page 1101. 



WILLIE, YOUR CALL 



58,993, the snake routine at 58,882, the sea 
routine at 58,882, the cloud routine at 58,795 
and the gull routine. 



REWARD: DEAD OR ALIVE 



Next the routine looks at the state of the so- 
called die variable. It is loaded up from 57,336 
and compared to 1. 

If it is 1, the jrz instruction sends the 
processor off to the reward routine at 59,788. 
This increments the score and sets up . 
the next screen. N, »— ?5 ^*j 



The following program is the main loop ~, ■ ,, • , „, 

... . , The routine calls, in turn, the 



man-moving routine at 59,153, 
the boulder routine at 




which completes the game: 

org 58702 
call 59153 
call 58993 
call 59823 
call 58882 
call 58795 
call 58751 
Id a, (57336) 
cp 1 

jp z,59788 
cp 2 
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The contents of the accumulator are then 
compared to 2. If they are 2, the processor is 
sent off to the die routine at 59,652. This is 
the one that lays Willie in his grave and 
finishes the game off. 



SLOW MOTION 



If the processor was just allowed to run round 
and round this routine, even though it calls all 
the other routines in memory, the game 
would be unplayabiy fast. So, to slow down 
the motion, two nested loops are constructed 
which delay the processor by around two- 
thousandths of a second. That may not sound 
long, but it mounts up because this routine is 
called so often. 

B is loaded with 50 and A is loaded with 
255. Then the contents of A are decremented 

and the jrnz instruction following it sends 
the processor round the dela loop 256 times 
until the contents of A have been 
decremented to zero. 

The djnz instruction then decrements the 
contents of the B register and sends the 
processor back to load A with 255 again until 
B has been decremented to zero. So this outer 
loop is executed 50 times and the inner loop is 
executed 255 x 50 times. 

But the B register only contains 50 when 
the game starts out. When Willie reaches a 
reward, a new number is poked into the 
Idb, 5(1. In fact, if you look back to page 1475, 
you'll see that the number in this location is 
oaded up, decremented and loaded back each 
ime Willie reaches a reward. So the processor 
:oes round this delay loop one less time — 
ceding the game by something like 90 

croseconds! 

/ 



BREAKOUT 



Finally, all good programs should have some 
way of breaking out of them without having to 
switch off the computer and losing everything 
in memory. Here you check to see whether the 
[BREAK] key has been pressed. This is done 
using the in command in exactly the same way 
as it was on page 731. 

Then the jrnz,alp instruction loops the 
processor round to the beginning of this main 
loop again if the |BREAK| key has not been 
pressed. If it has, the processor goes on to the 
ret and returns to BASIC. 



Before you key in the main loop you need a 
little loop that will clear all the flags: 



ORG 


25600 


LDA 


#$00 


STA 


$D015 


STA 


$C005 


STA 


$C006 


STA 


$C00C 


STA 


$D01E 



STA 


$D01F 


LDA 


$0018 


AND 


#$F0 


0RA 


#$0C 


STA 


$D018 


RTS 





So is loaded into A and stored in $D01 5, the 
sprite enable byte — in other words, all the 
existing sprites are turned off. Then the same 
is stored in the $C005 — the jump-right 
flag; $C006— the jump up flag; and $C00C— 
the sea counter. This makes sure that Willie 
does not start off by jumping and that the sea 
is started at the bottom of the screen. 



The contents of memory locations $D01E 
and $D01F are loaded into the X register. 
Nothing is going to be done with them there, 
it is simply that these two locations are the 
sprite collision detection registers and the act 
of reading them by loading their contents up 
into a register automatically clears them. 

Next the contents of $D018 are loaded up. 
This is the VIC control register. The most 
significant nybble contains the screen base 
address. You don't need to move the screen so 
this is ANDed with $F0. 

The least significant nybble contains the 
base address of the character set. This does 
need to be changed as you are using a 
redefined character set. So it is ORed with 
$0C, which effectively POKEs $0C into the 
lower nybble and shifts the pointer to the 
character set beginning at 53,000. 

The result of these operations is stored 
back in $D018 and the processor returns. 



MOVING OBJECTS 



Next you need a little routine that deals with 
moving the various sprites around: 



ORG 26112 
JSR $5900 
JSR $5800 
JSR $5700 
JSR $5650 
JSR $5600 
RTS 
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This jumps to the subroutine at $5900 which 
moves the boulder; then the subroutine at 
$5800 which moves the cloud; then the 
subroutine at $5700 which moves the sea; 
then the subroutine at $5650 which moves the 
gulls; then the subroutine at $5600 which 
flicks the snakes' tongues in and out. 

When all that is done, the processor 
returns. 



STARTING OVER 



Then you need a short routine that initializes 
everything and puts them in their proper 
place: 



ORG 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
RTS 



26368 
$6400 
$6300 
$5850 
$6150 
$6100 



This jumps to the subroutine at $6400 which 
clears the flags; then the subroutine at $6300 
which prints up the score; then the subroutine 
at $5850 which puts the boulder at the top of 
the slope; then the subroutine at $6510 which 
puts the cloud in its starting position; then the 
subroutine at $6100 which starts the snakes 
off; then the subroutine at $6000 which puts 
the sprites up on the screen. 

With all that done, the processor returns. 



MAIN LINE 



And finally, you come out of the subroutine 
sidings and onto the main loop routine which 
runs the whole game. Its start address is the 
one you call to run the game. 

ORG 26448 
JSR $4000 
JSR $6500 
JSR $6300 
JSR $67A9 



LOOP 



LOOPB 
LOO PA 



LDA 
STA 
LDA 
LDA 
LDA 
STA 
JSR 
JSR 
LDA 
LDA 
JSR 
JSR 
LDX 
LDY 
DEY 
BNE 
DEX 
BNE 
JSR 
BEQ 
JSR 
LDA 
STA 
LDA 
LDA 
LDA 
BNE 
LDA 
STA 
JMP 
PUTSCORE LDX 



#$00 
$D015 
$D01E 
$D01F 
#$38 
$0017 
$6700 
GETSCORE 
$D01E 
$D0 1 F 
$6600 
$6200 
SC002 
#$FF 

LOO PA 

LOOPB 
$6450 
LOOP 
PUTSCORE 
#! 

$D015 
$D01E 
$D01F 
$C001 
$675C 
#$15 
$D018 
$6750 
#$00 




mumm 



GETSCORE LDX #$00 
LDY # $06 
IDA $C382,X 
STA $047 E,X 
I NX 
DEY 

BNE S67BC 
RTS 

This jumps to the subroutine at $4000 which 
prints up the title page; then the subroutine at 
$6500 which gives initial values to the lives, 
levels and score, fixes the gulls' initial po- 
sition and sets up the sprites; then the 
subroutine at $6300 which prints up the 
scenery; then the PUTSCORE subroutine 
which puts the score into the variable area. 

A is loaded with which is stored in 
$D015 which switches the sprites off. Then 



to the subroutine at $6600 which moves the 
objects around; then it jumps to the subrout- 
ine at $6200 which moves Willie. 

Already things are moving too fast, so the 
action has to be slowed down a bit at this 
point. The processor moves so fast that the 
game would be unplayable if it was allowed to 
continue at that rate. So a delay routine is 
added at this point. 

X is loaded with the contents of memory 
location 49,154. This is the delay variable 
which tells the game how fast to go — the 
game is speeded up during play by decre- 
menting this delay. 

Y is loaded with 255. This is used as a 
counter for the inner loop of the delay. Y is 
decremented. If it has not been decremented 
to zero the processor loops back to be de- 
cremented again. 

When the processor drops out of that loop, 

the contents of the X register are decremen- 

. ted. The processor branches back if that 

register has not been counted down to zero 

and loads Y up with 255 again. 

When the processor has finally dropped 

out of the outer loop, it jumps to the sub 

routine at $6450 which checks to see 

\ whether Willie is dead, or whether 

jN \ he has reached a reward. 

r> 



If he's alive and unrewarded, the ac- 
cumulator contains when the processor 
leaves this subroutine and the BEQ instruction 
takes the processor back round to LOOP. 



DEAD BUT NOT FORGOTTEN 



If Willie is dead or has been rewarded, the 
processor continues and jumps to the 
PUTSCORE subroutine which prints the score 
up on the screen. 

A is then loaded with which is stored in 
$D015. This turns the sprites off again. And 
the collision registers are cleared by loading 
the contents of $D01E and $D01F into the 
accumulator. 

The number of lives — which has now been 
decremented — is loaded up from $C001 into 
the accumulator. And if they are not zero, the 
processor branches back to the label BB to 
start on the next level. If not, the processor 
continues. 

Next, 21 is loaded into the accumulator and 
stored in $D018. This sets the character set 
back to normal so that the instruction can be 
printed up. 

The processor then jumps back to the label 
START and starts all over again. 




the two sprite collision 
registers at $D01E and 
SD01F are read, which clears 
them. 

The number 56 is loaded in- 
to the accumulator and stored in 
$D017. This location gives double 
height sprites to those with the 
appropriate bit set. 56 sets bits 
three, four and five — the bits corre- 
sponding to the snakes' sprites. 

The processor then jumps to the sub 
routine at $6700 which initalizes the 
level. Then it goes to the GETSCORE sub- 
routine which gets the score from memory. 

The contents of $D01E and $D01F are 
loaded up into A to clear them again. Then 
the processor goes into the main loop. 



LOOPING THE LOOP 



Once the game has been initialized, the 
processor heads off into the action. It jumps 
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with the score. The first, PUTSCORE, copies 
the score from the screen and stores it in some 
free memory. It does this when Willie dies, to 
save the score when the scene is changed. 

The second, GETSCORE, copies the score 
from free memory back onto the screen when 
the new screen is printed up. 

In PUTSCORE X is loaded with 0. This is 
going to be used as an offset to move across 
the digits. And Y is loaded with six. It is going 
to be used as a counter — there are six digits in 
the score. 

The accumulator is loaded with the cont- 
ents of $047E offset by X. This is one of the 
digits. It is then stored in $C382, offset by X, 
part of free memory. X is then incremented to 
move the screen pointer onto the next byte, 
and Y is decremented. If it has not counted 
down to zero the BNE instruction branches the 
processor back to deal with the next digit. If 
not, the processor proceeds, hits the RTS and 
returns. 

GETSCORE works in exactly the same way, 



except that LDA $047E,X and STA $C382,X 
instructions are replaced by LDA $C382,X and 
STA $047 E,X. This simply reverses the direc- 
tion of the transfer and copies the score for 
memory onto the screen. 

Now load all the parts of Ctiffhanger into 
memory and key in: 

SYS 26448 

to start off the game. 



The following program ties all the separate 
routines together and turns them into a games 
program. After the game has been set up, each 
routine is called in turn. But between each call 
there is a delay. 

Don't forget to set up the computer in the 
usual way before you key in this program: 

30 DATA1 ,3,1 ,2,1 ,1 ,1 ,5,1 ,5,1 ,1 ,1 ,1 

40 F0RA% = &21 F7TO&2204:READ?A%:NEXT 
50FORPASS = 0TO3STEP3 



60P% = &2205 
70 [OPTPASS 
80 .Game 
90JSR&1B78 
100JSR&F5B 
110LDA#4 
120 STA&80 
130 Ib1 
140JSR&1100 



150 LDA&S0 
160 BNELbl 
170 .Lb13 
180JSR&13F8 
190LDA&80 
200 PHA 
210JSR&1D77 
220 PLA 
230 STA8.80 
240 .Lb2 
250JSR&1D9B 
260 LDA&80 
270ORA#4 
280 STA&80 




290 LDA#15 

300LDX#0 
310JSR&FFF4 
320 LDA #0 
330 STA&70 
340 LDA #2 
350LDX#&70 
360LDY#&0 
370 JSR&FFF1 
380JSR&1E99 
390 LDX&83 
400LDA&1B2D,X 
410 AND#&4 
420 BEQLb3 
430 JSR&1DEE 
440 .Lb3 
450 DEC&21F9 
460 BNELb5 
470 LDA&21 FA 
480 STA&21 F9 
490 LDX&83 
500LDA&1B2D,X 
510AND#&4 
520 BEQLb5 
530JSR&1E1D 
540 .Lb5 
550DEC&21FB 
560 BNELb6 
570 LDA&21 FC 
580 STA&21 FB 
590JSR&1CCB 
600 .Lb6 
610 DEC&21FD 
620 BNELb7 
630 LDA&21 FE 
640 STA&21FD 
650 JSR&1C08 
660 .Lb7 
670DEC&21FF 
680 BNELbS 
690 LDA&2200 
700 STA&21 FF 
710JSR&1100 
720 .LbB 
730 DEC&2201 
740 BNELb9 



750 LDA&2202 
760 STA&2201 
770 LDX&83 
780 LDA&1 B2D,X 
790AND#&2 
800 BEQLb9 
810 JSR&21A6 
820 .Lb9 
830DEC&21F7 
840 BNELb4 
850 LDA&21 F8 
860STA&21F7 
870JSR&1FD5 
880JSR&2141 
890JSR&2107 
900 .Lb4 
910 DEC&2203 
920 BNELbl 5 
930 LDA&2204 
940 STA&2203 
950 LDA&7C 
960AND#&4 
970 BNELb15 
980 JSR&1EB6 
990 IMS 
1000 LDA #&81 
1010LDY#&FF 
1020 LDX#&8F 
1030 JSR&FFF4 
1040TXA 
1050 BEQLb16 
1060 JMPLb13 
1070 Ib1 6 
1080JSRPause 
1090 LDA&7D 
1100 AND #&80 
1110BNELb10 
1120 JMPLb3 
1130 .Lb10 
1140 LDA #255 
1150 JSR&146E 
1160 LDA #255 
1170 JSR&146E 
1180LDA&89 
1190 BEQLb11 
1200 JMPLb2 
1210.Lb11 



Illllllllll 
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1220LDA#&81 

1230LDY#&FF 

1240LDX#&9D 

1250JSR&FFF4 

1260TXA 

1270 BEQLb11 

1280JMPLb13 

1290 .Pause 

1300 .LbH 

1310LDA#1 

1320 LDX# 8.70 

1330LDY#&0 

1340JSR&FFF1 

1350LDA&70 



1360 CMP&84 

1370BCCLbH 

1380 SEC 

1390SBC&84 

1400STA&70 

1410LDA#2 

H20LDX#&70 

1430LDY#&0 

1440 JSR&FFF1 

1450 RTS 

1460] NEXT 

1470 ?&1D92 = 255 

1480 ?&1D8F = 8 

1490?&21AC=1 



1 500 ?&1 5D9 = 4:?&1 5DA = 1 2:?&1 B 

6A = 3:?&1 0F1 = 2:?&1 0F3 = 2:?&1 0F7 = 

10:?&DF6 = 85 
1 51 DATA 4,1 ,0,0,0,0,0,0,2,253, - 1 27, 

-127,40,0 
1520 FOR A% = &149FTO &14AC:READ 

?A%:NEXT 
1530?&14C5 = 10 
1540?&14CE = &9F 

For the Electron make these changes: 

1550?&1100 = 96:?&1435 = 20: 
?&2214 = &EA:?&2215 = &EA: 
?&2309 = 96 

You'll need a short 
BASIC program to 
run the game 
for you. 



NEW first, then: 

10*KEY10 ?&O00 = 22:?&E00 = 120: 

?&E01=86!MCALL&21C7!M 
20 "TV255 

30 PRINTTAB(15,12}"PLEASE WAIT" 
40VDU28,0,24,39,10 
50'RUN"CliffMC" 

SAVE this routine to tape under the fde 
name 'Cliff, then load up all the machine 
code and SAVE it using the instruction 

'SAVE"CliffMC" 0D00D2400n2205 



READY. 



Lines 30 and 40 READ in more DATA 
into a data table at &21F7 to &2204. 
These locations carry the initial and 
reset values of all the delays. 

The instruction in Line 90 jumps the 
processor to the subroutine at &1B78 which 
sets the ioud' envelope. Next it jumps to the 
subroutine at &F5B which prints the title. 

The number 4 is then loaded into the 
accumulator and stored in &80, the location 
that controls how long the tune is played. The 
instruction in Line 140 then jumps to the 
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subroutine at 

&1100 and plays the tune. 

The tune routine automatically 

decrements the contents of &80. So 

after the processor has returned the 

contents of &80 are loaded into the 

accumulator and the BNE instruction in 

Line 160 branches the processor back to play 

more of the tune if the contents of this 

location have not counted down to zero. 



STEADY. 



The processor then jumps to the subroutine 
at &13F8 which prints up the instruction 
page. The contents of &80 are then loaded up 
into the accumulator and pushed onto the 
stack, to save it temporarily while &80 is used 
for other purposes. 

The processor jumps to the subroutine at 
&1D77, which initializes all the variables, and 
the contents of the accumulator are pulled 
back off the stack and stored back in &80. 

The pushing and pulling of the contents of 
&80 may seem unnecessary as they were 
counted down to zero by the routine above. 
But this is not the only time the routine is 
called. When the game is over, the processor 
jumps back to the instruction page again with 
a different value in &80, 

The next jump is to the subroutine at 

&1D9B. This prints up the screen. Then the 

contents of &80 are loaded into the acuumu- 

L lator, ORed with 4 and stored back into &80. 

This sets the tune off again. 



is loaded with 1 5 and X is loaded with 

Then the routine at &FFF4 is called. 

This is the machine code equivalent 

ofa*FX15,0. This flushes 

the sound buffer. 




Next is stored in &70 and the X and Y 
registers. And 2 is loaded into A. So when 
&FFF1 is called in Line 370 the least signifi- 
cant byte of the time is set to zero. This zeros 
the clock so that it can be used to time a delay 
later. 

The processor jumps to the subroutine at 
&1E99 to print up Willie. Then the contents 
of &83, the location that carries the level 
number, is loaded into the X register. It is 
then used as an offset in the LDA&1B2D,X 
instruction in Line 400 which loads the 
accumulator with a number whose bits indi- 
cate what is required in that screen. 

Firstly, the contents of the accumulator are 
ANDed with 4 to see if a boulder is required, 
the BEQ instruction will not operate and the 
processor will jump to the subroutine at 
&1DEE and print a boulder on the screen. If 
not, the BEQ instruction branches the pro- 
cessor over the subroutine call. 



UP AND RUNNING 



Now that everything is set up, the processor 
moves into the main routine. 

The delay counter in &21F9 is decremen- 
ted and the BNE instruction in Line 460 
branches the processor forward to the next 
routine if it has not counted down to zero. 

But if it has counted down to zero, the 
processor continues and restores the counter 
in &21F9 with the value from &21FA. Then 
X is loaded with the contents of &83, the level 
number, again and the byte which tells the 
program which items need to be printed on 
the screen is loaded into the accumulator 
again. This is ANDed with 4 again, to see if a 
boulder is on the screen. 

If one is, the BEQ instruction does not 
operate and the processor jumps to the sub- 
routine at &1ED which moves it. If not, the 
processor skips this instruction and moves to 
the end of the routine. 




SEA AND GULLS 



Next the delay counter in &21FB is de- 
cremented. If it hasn't counted down to zero, 
the BNE instruction in Line 560 branches the 
processor onto the next routine. But if it has 
counted to zero, the counter in &21FB is 
restored with the value of &21FC. Then the 
processor jumps to the subroutine at &1CCB 
which moves the sea. 

The next little routine operates in exactly 
the same way. It decrements the counter 
in &21FD and branches to the end of the 
routine if the result is not zero. 
If it is, the counter is restored 
from &21FE and the routine at 
*•' &C108, which moves the sea- 
gulls, is called. 



MUSIC SHAKES THE SNAKES 



The music delay counter in &21FF is de- 
cremented. If the result is zero the processor 
branches on to the next routine. 

If it is, the counter is restored from &2200 
and the processor jumps to the routine that 
plays the tune at &1100. 

The instruction in Line 730 then decre- 
ments the snake counter in &2207. And if it 
has not been decremented to zero the BNE 
instruction following branches. 

If it has counted down to zero, the pro- 
cessor continues and the counter is restored 
from &2202. Then the level number is loaded 
into X and the screen extras are loaded from 
&1B2D by X again. 

This is ANDed with 2 to see if there are any 
snakes on this screen. If there are the pro- 
cessor jumps to the subroutine at &21A6 and 
moves them. If not the BEQ in Line 800 
jumps over that instruction. 



THEN THERE WAS WILLIE 



The main routine counter in &21F7 is then 
decremented, checked to see if it is zero and 
restored from &21FF if it is. 

The routine at &1FD5 is called which 
moves Willie, then the one at &2141 to sort 
out the score, then the one at &2107 to check 
if Willie has reached the end of a screen. 

Next the delay counter for Willie's death 
routine in &2203 is decremented. If it has 
reached zero it is restored from &2204. Then 
the data on Willie's physical condition is 
ANDed with 4. This checks to see whether he 
is dead and calls the routine at &1EB6 to 
finish him off. 



ESCAPE FROM CUFFHANGER 



Pressing the |ESCAPE| key while you are 
playing Cliffhanger allows you to escape from 
the game and start again. A is loaded with 
&81. The OSBYTE routine at &FFF4 is going 
to be called. This gives the same effect as an 
OSBYTE &81 call and reads the keyboard in the 
same way as explained on pages 1382 and 
1383. 

The &FF in Y and the &8F in X sp ecify the 
key to be scanned — in this case the [ESCAPE | 
key. If it has been pressed a &FF is returned 
in X, if not, a is returned. 

The result of the scan is transferred into 
the accumulator and the BEQ in Line 1050 
branches over the next instruction if the 
[ESCAPE | has not been pressed. But if it has 
been pressed the processor hits the J MP 
instruction and jumps back to the beginning 
of the game to start all over again. 

If the | ESCAPE ] key has not been pressed, the 
processor jumps to the subroutine Pause — 



which begins in Line 1290 — to give a pause 
before going on with the game. 

Then the accumulator is loaded with the 
contents of &7D which stores Willie's con- 
dition. AN Ding with the number &80 checks 
to see whether a reward has been reached. If it 
hasn't, the processor jumps back to Lb13 and 
starts the main loop again. If it has, the 
processor skips this instruction, loads A with 
255 and jumps to the delay routine at &146E 
twice. This is the delay routine which was 
used to give you enough time to read the 
instructions. 

Next the contents of &89 are loaded into 
the accumulator. This is the location that 
carries the number of lives Willie has left. If 
he has lives left the processor jumps to Lb2 
and continues with the game. If not the 
processor skips the jump instruction. 

Next the OSBYTE &81 routine is used again 
to check whether the space bar has been 
pressed. The BEQ instruction in Line 1270 
loops the processor back, so it goes round and 
round this check until the space bar is 
pressed. When it is, the processor jumps back 
to Lb13 and starts the game again. 



EASING THE PACE 



The rest of the program is a delay to slow the 
game down enough to make it playable. This 
is done by reading — and resetting — the clock, 
to do this an OSWORD call is made by jumping 
to the subroutine at &FFF1. 

When this is done with a 1 in the 
accumulator — as in Line 1310 — the clock is 
read and its five-byte value is written into 
memory starting at the address given in the X 
and Y register. Here Y contains and X 
contains &70, so the time is recorded in zero- 
page memory locations &70 to &74. 

The low byte of the time in &70 — the 
hundredths of a second — are then compared 
with the delay value in &84 by the instruc- 
tions in Lines 1350 and 1360. The BCC in 
Line 1370 jumps back to the beginning of the 
pause routine to read the clock again. It goes 
on jumping back and reading the clock again 
until the number of hundredths of a second in 
&70 is greater than the delay number in &84. 
When this happens the compare — which is an 
unrecorded subtraction, remember — sets the 
carry flag so the Branch on Carry Clear does 
not operate and the processor continues. 

The clock then needs to be reset. But you 
don't want it to start again from zero. Instead, 
it is going to be reset to the value given by the 
number of hundredths of a second in &70 and 
the delay — in other words, the amount the 
clock has been incremented past the delay. 

So the carry flag is set by the SEC in Line 
1380. The accumulator is still carrying the 



contents of &70 picked up by the instruction 
in Line 1350, so the SBC&84 in Line 1390 
performs the subtraction and the result is 
stored back in &70 by Line 1400. 

The accumulator is then loaded with 2 
which allows you to write to the clock when 
the JSR&FFF1 in Line 1440 jumps to the 
OSWORD routine. The data that is used to 
reset the clock is in the five bytes starting at 
the address given by the contents of X and Y. 
Again this is zero-page locations &70 to &74. 



SB ill 



The following program is the main action 
loop which completes the game. Tandy 
owners should change the JSR 32774 to JSR 
41409. 



ALP 



BLP 



DLL 
DEL 



ORG 20932 
LDA #5 
STA 18258 
CLR 18261 
JSR ELB 
JSR MAN 
JSR BAR 
JSR SNK 
JSR SEA 
JSR MOVSUN 
LDA 18252 
CMPA #1 
LBEQ RWD 
CMPA #2 
LBEQ DIE 
LDB #100 
CLRA 



DELA 


DECA 




BNE DELA 




DECB 




BNE DEL 




JSR 32774 




CMPA #3 




BNE BLP 




RTS 


MOVSUN EQU $4D0I 


ELB 


EQU $4B59 


MAN 


EQU $4DBE 


SNK 


EQU $5178 


SEA 


EQU $4CDE 


RWD 


EQU $50F1 


DIE 


EQU $5050 


BAR 


EQU S4D45 



Now LOAD in the rest of Cliffhanger and 
assemble this short program on top of it. 

ORG 19572 
JMPALP 
ALP EQU$51C4 

Key in the instruction: 

EXEC 19426 

and Cliffhanger should now work! 



READYING THE ROUTINE 



A is loaded with 5 which is then stored in 
18,258. This sets the sun delay. 

Then memory location 18,261 is cleared. 
This is the man-jump variable and it has to be 
cleared to prevent Willie jumping at the 
beginning of a screen. 

The processor jumps to the ELB routine to 
put up the extra bits and pieces needed for the 
higher levels of the game on the screen. Next 
it jumps to the MAN subroutine to deal with 
moving Willie. Then it jumps to BAR to move 
the boulder, then SNK to move the snake, then 



SEA for the sea, then MOVSUN for the sun. 

The contents of the die variable at 18,252 
are loaded into the accumulator. This is 
compared to 1 which means that Willie has 
reached a reward. And if 1 is found the LBEQ 
makes the processor take a long branch back 
to the routine that gives Willie his reward. 

If the die variable is not 1, the CMPA #2 
checks whether it is 2, the number signifying 
that Willie is really dead. And if it is 2, the 
processor makes a long branch off to the DIE 
routine which buries him. 



ROUTINE DELAY 



B is loaded with 100 and is used as the counter 
in the major delay loop. You will note that the 
memory location occupied by the 100 when 
the program is assembled — $51EE — is the 
byte decremented in the score routine. 

A is cleared and decremented, making its 
contents 255. The BNE instruction then 
checks to see whether it is zero and, if it is not, 
goes back to decrement it again. 

When A has been decremented down to 
zero, the processor drops out of this loop. 
Then it decrements B and branches back to 
clear A and decrement it again if the contents 
of B have not counted down to zero. 

In other words, at first the processor goes 
round the inner loop 256 x 100 times to slow 
the game down. But when Willie has had 
some success in reaching the rewards the 
game is speeded up by sending the processor 
round this loop only 256 x 99 times, or 
256 x 98 times, or 256 x 97 times and so on to 
slow it down slightly less. 



BREAK DUNCE 



Jumping to the subroutine at 32774 checks 
the keyboard. And comparing the value re- 
turned in the accumulator with 3 checks to see 
if the | BREAK | key has been pressed. 

If it hasn't been pressed, the BNE insruc- 
tion jumps back to continue the game. But if it 
has been pressed, the processor continues, 
hits the RTS and returns to BASIC. 



CLOSING THE CIRCLE! 



One last little refinement has to be added to 
the program. In the routine you originally 
entered that scrolls on the appropriate screen 
and sets the score, there were an RTS and two 
NOP instructions. 

These were used to leave enough space to 
put in a jump instruction which would loop 
when the game was first called. 

It wasn't filled in then because at that time 
the action routine hadn't been written. Now it 
has. So a J MP ALP is assembled in that 
address. This closes the circle, completing 
Cliffhanger. 
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ESCAPE: 

THE CODED TEXT 



Now you have the completed BASIC 
control program, you can start 
entering the text. How to escape, 
though, remains a mystery, because 
it's all in code and compressed 



You're over half-way there. The text program listing, or it will not work. 

which builds up over the remaining parts of n 

Escape will generate the text file needed to ■ 

print out the game's messages. Do not RUN 5 PRINT AT 10,5; "POKING DATA. PLEASE WAIT" 

the program until you have the complete 10 RESTORE 6000: DIM Z(1 750): DIM A(204): LET 



DI = PEEK 23627 + 256' PEEK 23628: LET L = 6000: 

LET Dl DI-3: FOR N-1 to 533 
20 READ AS: LETTOT = 0: FOR D = 1 TO 32 STEP 2: LET 

B$ = A$(DT0D + 1) 
30 GO SUB 1000 



\ 







S3 iGMUSPKOGIimm^i 53 



[■■■■■III 



40 LET TOT = TOT + B: POKE DI,B: LETDI = DI + 1: 6092 DATA 

NEXT D 6094 DATA ' 

45 LET B$ = AS(33 TO 34): GO SUB 1000: IF 6096 DATA ' 

B< >TOT-256'INT (TOT/256) THEN PRINT "C 6098 DATA 

HECKSUM ERROR IN LINE ";L: STOP 6100 DATA' 

57 LET L=L + 2 6102 DATA 

60 NEXT N 61 04 DATA' 

70 FOR N = 1 TO 204: READ A(N): NEXT N 6106 DATA 

80 PRINT : PRINT "READY. SAVING ARRAYS." 6108 DATA ' 

90 SAVE "DATAA" DATA A() 6110 DATA ' 

1 00 SAVE " DATAZ" DATA Z() 61 1 2 DATA " 

999 STOP 61 14 DATA" 

1000 LET B = 16'(CODE (B$(1))-48-7'(B$(1)> 6116DATA" 
"9")) + C0DE (B$(2))-48-7'(B$(2)> 6118DATA" 
"9"): RETURN 6120 DATA* 

6000 DATA "01D60600003F210038C965A33DE4B2F50E" 6122 DATA " 

6002 DATA"90C8656CAD94B2DF2BE499C64B2D32A6B9" 6124 DATA " 

6004 D ATA "51 C9656CB CB 1 65267590CC650CB6C A79 1 E" 61 26 DATA " 

6006 DATA "699532324CEB2E197CBD64B2B33E3259AB" 6128 DATA" 

6008 DATA "1976C9651 CBACB8CA795D95C864B2A65BB" 6130 DATA' 

6010DATA"E323218B29329919632B650CAB96AC5904" 6132 DATA" 

601 2 DATA "190C864658CAB95F2E724DB6432D72D383" 61 34 DATA " 

6014DATA"2B6465362C8C96499EF2194C8CB195F27A" 61 36 DATA" 

601 6 DATA "E72595B2E1 8B29652CBE1 66CF3953259D1 " 61 38 DATA " 

6018 DATA "6ACE32S9699519EB2595B2B650CBBC8C4A" 6140DATA 

6020 DATA "D36572F2CE325968DB6D91CB4CB19632C6" 6142 DATA * 

6022 DATA "BE499C64B2D19BE55CAD9599D64320CF49" 6144 DATA" 

6024 DATA"7919192CC6432EB2590C59498B2865F1 D0" 6146 DATA" 

6026 D ATA " 90CE325969951 9 B655CB 1 97C3259262C48" 61 48 DATA " 

6028 DATA "8C867AC9656CAD9432EF232AE4335C96DE" 6150 DATA ' 

6038 DATA "54CA99572865DE46686038C965A3219546" 6152 DATA " 

6032 DATA "321 95C8641 9E3286465 F1 98C8E4652C8FC" 61 54 DATA " 

6034 DATA "CAECC657CAD95B34D8B23232321 95CA23C" 61 56 DATA " 

6036 DATA "CDF232595F2194CB4C8CB9CAB91976CF9B" 6158 DATA" 

6038DATA"194B2DF2E58B23219BE4656CAD94590C2D" 6160 DATA' 

6040 DATA "8C862C8C86632BE56CACCAE5165F2D729E" 6162 DATA" 

6042 DATA "DB29E5C36DB21 96D9432A653679CA9924E" 6164 DATA" 

6044 DATA "CB567192CB4CA8CEB2325978C96465DBD3" 6166 DATA" 

6046 DATA "2391 9532865BE69B1 646432591 95B2E15A" 6168 DATA" 

6048 DATA "9E329652CA8CAE5162CA4C59190CDF2B0D" 6170 DATA* 

6050 DATA " E51 C8CD0C021 979C8CAF90C596F9499E77" 6172 DATA " 

6052 DATA "32865C651 CFB5166F94B2A65F1 98CE32A3" 6174 DATA* 

6054 DATA "5968CF792CB06432D94B29651C965CE52D" 6176 DATA' 

6056 DATA "7C9316464335CA595329E50CA8CA64B2FB" 61 78 DATA " 

6058 DATA "D32321 8B2321 B67BCAB9197791 94697C24" 61 80 DATA 

6060 DATA "B9CA59699779262CA4CF392CA99632BBAB" 61 82 DATA " 

6062 DATA "2596D92CB962C8C8678CA594B2A66860B7'* 61 B4 DATA ' 

6064 DATA "2B95325919EABACA596991 90CC646465AE" 6186 DATA ' 

6066 DATA "1C8CA2CB64B232BB1646436DB66F91956F" 61B8 DATA ' 

6068 DATA "B2B65164B24C59195728B2992CA596B977" 6190 DATA 

6070 DATA "A6CB64B2EF2594D98C965AE4651 CBCE58A" 6192 DATA 

6072 DATA "4C965AB20C8E5AE4B2B6566759432A6415" 6194 DATA 

6074 DATA "6499BE55C8C8CA596ECF79572EF24D90CD" 6196 DATA " 

6076 DATA "CBACA597AC867192CB46432321 8B232351" 6198 DATA " 

6078 DATA "232195CA2C964656CB864B232BB3C652B6" 6200 DATA ' 

6080 DATA "CA595334D8B232AE51 65728B1 6464331 97" 6202 DATA ' 

6082 DATA "94328E4656C86DB6D8B2A64650CA39690D" 6204 DATA ' 

6084 DATA "9532E33FD64B232BB259262C8C8663234D" 6206 DATA ' 

6086 DATA "232BE465165728B64B2DB269739A18169D" 6208 DATA ' 

6088 DATA "464337C8CAD95B2BB21 95321 9E72BE51 0C" 6210 DATA ' 

6090 DATA "C8CA594B232BE499BE55C96436D92CAD29" 6212 DATA" 



'978CC6532D32591970C8654CB5CA596937" 6214 DATA' 

'9533FC66 B94B28E43259265724CAE51 C31 " 621 6 DATA 

B4C964B2 B64651 CA39A6C591 9191 90CA5B" 621 8 DATA ' 

'E5164B232B65C3259195DB6D9E32965207" 6220 DATA' 

'CA99A6C59195728B2B9458B232190CA9BA" 6222 DATA" 

'96B94B2D32A65C668638C965A33DE4B2C3" 6224 DATA" 

'F590CBE5CE4B2BE4646499067BCB4CBB11" 6226 DATA" 

'C8CC6432AE54CB8CC6C8E4652CBCAECF8F" 6228 DATA 

'792CAD95B3D56F91 970CDF2AE4B21 91 CE6" 6230 DATA 

'8CA19572A6516DB6CB64650CBC64B232F2" 6232 DATA' 

ED.9A65B3219190CF194B2OF2E734D97CA3" 6234 DATA' 

B9CA59532D72965A649B37CA594B2F19AA" 6236 DATA' 

1972CF194B29654CA2CB64650CBC337C45" 62380ATA' 

AF947233192CA99739432595DB3C652C4B" 6240 DATA* 

A595328B2394B2O329E43219190C833669" 6242 DATA ' 

CAD9432AE433C652CA5951B6CBE50CA3C8" 6244 DATA' 

91 9A1 82396991 95B2597792CA6C86464A0" 6246 DATA ' 

33C E54C8CA397 B6432 AE5464324CB6501 B " 6248 DATA ' 

CA3919C191CB7CAf95F29E7AABE5AE4684" 6250 DATA 

56CAD92C8CBB67BC8C8CBACA2C86464366" 6252 DATA 

3C E56CA596F95 F2328 E50CA990C8656C2 E" 6254 DATA ' 

ACCA64B2D323219C64B2D334D9C64B2D73" 6256 DATA* 

190CA990CAE432196F9195B2B646499D80" 6258 DATA 

'E50CA997SC8CB9CFF5906472DB2AE54C62" 6269 DATA 

'A1959B6DB6D91C8CA19572A658CA194745" 6262 DATA* 

•24C596F95728E465166996D96F919532F5" 6264 DATA' 

'F194590C8C86DB1 64646464321 95321 903" 6266 DATA 

E329652CA994595C862C8C86472965A6CE" 6268 DATA * 

53C864323232DF2BE51C866F9195B2B6A3" 6270 DATA ' 

51CD0C20CDF232A65AB2396B9195B2B31C" 6272 DATA' 

25926759432F8C96465DB3BCA99195F2DE" 6274 DATA" 

9E51 6D9C64B2D 1 E7AB38C965A321 953262" 6276 DATA ' 

1 95C862C8C867 C64B 2596323232 E734D B B" 6278 DATA " 

B 1 64654C8CAECF1 94B29654CA2C964B 28E" 6280 DATA * 

F395F2197CBEB2AE4B28B2394B20329ED3" 6282 DATA' 

466365F28651C864323219BE57CA3919B1" 6284 DATA' 

A18020CB650CA997790CB650CBC65C3267" 6286 DATA " 

B90C8337C9655C96576432DB2A64B21BC2" 6288 DATA" 

65B29652CBE328B34CB664324CE325960A" 6290 DATA ' 

'99A6C8E5EF2194C8CB192CBBCB9CA697CC" 6292 DATA' 

E64651 CB8C965A66862397B C86779532 EA" 6294 DATA " 

32B E53CA2CE325968C8651 64321 92CADC2 " 6296 DATA " 

978679CA99572BE5CE4669472F790CAE86" 6298 DATA * 

'51679CA992CB567192CB4CA8CF592CAD73" 6300DATA' 

'95B2865DE466862397BC862CA1 97C64666" 6302 DATA ' 

51 64194C8C967AAF794B29B36C8CBE32ED" 6304 DATA 

3219E72A64B2D5B1646433CE55CA990C85" 6306 DATA 

'86464321978CBD650C8CB195F28B165238" 6308 DATA' 

, CB7C8CA9978CA2DB38C965A335C8CB9C89" 6310 DATA 

*A1 9632AE465DE56CB8CDOC38C965A321 C6" 6312 DATA ' 

'9632190C9316464339CA595329E432F905*' 6314 DATA ' 

'7390C96498B2321 98E55C8CAF9EAB1 9593" 631 6 DATA ' 

'F2B656CA195334D9066F94B2965E323254" 6318 DATA ' 

' E591 C8CA1 9572A6586A1 9472595B232839" 6320 DATA 

"65E328B34CB66432321 8 B23232321 95CC2" 6322 DATA ' 

'A2C836DB6DB1654CA196D9EABC652CA536" 6324 DATA " 

951 95C862C8C8679CAD94B29654CO0C09F" 6326 DATA 

16464337C8CAD95B28B259262C8CAB94EC" 6328 DATA 

594C9652CB56432A6436DB6632597AC8C3" 6330 DATA 

C8C8C9337CAB92C86632B654CBD64649AF" 6332 DATA " 

92CA1 97C336CA1 91 95F2B651 CD325953FB" 6334 DATA " 



'2E72864B2BB3C652CB4CBAC96433C652B0" 
'CA595328B2596D92CB962CA4C59190CE8D" 
729654CA790C8646432B919472AE5E32BA" 
'18B232192CB6C965CB3C652CA595328BB4" 
CFDABE50CA3919D595C8C965262C8C8697" 
75943232F9C8CAF94F25919779EABDE491" 
'B2B6566432A643219532D72324CEF2D3D6" 
'28664CBC661CD0C02B926572BB3C650C72" 
' A997C32 B90C F791 91 91 9A62 C8C865325AD" 
94B2D5B6C8E5AE4656CA094592C933ACEA" 
9652CA597864323219E72BE50CA99B21CC" 
9459C64B2D32A32F97195F28B21978CB74" 
EF232590C59498B232196C965DE4B29E48" 
■5C64B2D191C965767ACA19532AE52CB417" 
C932B91947232A65A65AE465CE4B28B202" 
5926C594B2A653CB4CA99198C86432F9C3" 
6B 96 D94F2E1 9D654CA1 97E64B2B E4321 33" 
■9190D8165BE52678CA594B2A651CC64716'* 
'2965A653C86432321 97CA1 947233431 6D F" 
'4655CA2CAE5162C8C86779699432A65E95" 
'33D5532594B2D734D91CAD96996B96D97C" 
'2C9650C81 953259472881 646431 650CBCF" 
'AC96432B90C59190CD72AE5E32F195B2DB" 
1B259262C8C86532594B2D595CA2C8337E" 
BCB4CA19532F19FEB3DE436DB6432DB205" 
'DB259432A651 62C A4C EB 21 90CA395 B2352" 
'2BE5B669B20CDB2596F94F2BE4335CB41D" 
'CB B67B C9651 67591 95F2E59 F1 97394B223" 
' C65F1 91 9262CA4C591 90DB6C F395 B2964A' ' 
52CA99A6C591 91 91 90C8654C8678CA59FD" 
4B2A65162CA4C59190D97CA194723319EE'* 
BE57CA390C86464339CA595329E46686DB" 
2391953286465DE466336CB4C8CBBC8C1C" 
'B9C932396B9195B2B651679CAB95B2B3DP' 
16464650CAG95334D9066B94B2A653CA4F" 
195190C8C866D92CA39195B2190C8C86A7" 
•D9EB28654CAB94B2D324C8E4652C8CAEFC" 
, CEB29653CA795B2328B2D92C8CAEC59199" 
•90D91CBDE4656CBD64661CD362C8CAB919" 
4595CA2C59190DB6DB6DB2196D9194F29C" 
3232C650CA9971 9F6A2CA64B2965AE631 3" 
2 B9267BC9651 678CA594B 2 A651 67394B87" 
2A653C86432321 9BE57CA391 9A1 835C8B7" 
'CB964323219BE52CB5C8CB96572198C94B" 
'656CA59699532F3969959B6DB31 92CA301 " 
91 96996B91 94590CA990CB E50C964B23AE" 
2ED90C8CB678CA9957232F8C96466DE553" 
'0C931650CBAC96465166D9572B646499CB" 
'EF2AE5DE499BE55C96433CE4B2965E1BBB" 
'219190CF1 9532AE465F1 9A6CE325968C1 V * 
'8654C864324C591 90CDF2BE51 C865F2E20" 
'72192C931646433ACA19197CE4657CA707" 
'92C8CBBCF55EF2595B2B669B165262C898" 
"CB66F95F28E4321 95321 9DE5A650CA992C" 
'78C8C933C652CB4CBAC96436DB3C652C30" 
'A595328B21 91 90C59191 91 90CAE51 64147" 
'91CB5C9656CACCF194B2965462CA4C592C" 
'190CE729654CA7919A18319432A654CB8C" 
"8CAB91976C59190CDF2AE465767BC965BA" 
1679C9652CAD919262C8C8CBBCB4CA19C9" 
532F1 945E7AB1 646465C33C652C8CFB507" 
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6336 DATA "36472595F2D58B2933DE4B2F591 91 91 9E1 " 6458 DATA 

6338 DATA "63259779739572FCC8C9338C965A66863A'" 6460 DATA 

6340DATA"2190CBE56CA197594B2A650C9657CC6754" 6462 DATA 

6342 DATA "9C965A654CF56B64651 C8CAF90CEB232EF" 6464 DATA 

6344 DATA"4DB2392CAF96B9458B2933CE55CAD959AD" 6466 DATA 

6346 DATA"8B232194C9652CB5C0362C8CAB94595C21" 6468 DATA 

6348 DATA "A3919190CF8C96465DE7DA8B3AC8C96565" 6470 DATA 

6350 DATA "4C9652CB5CD362C8C8C8C86432A6436291 " 6472 DATA 

6352 DATA"CB7CA4CF194B29654CA398CB64650CBC8F" 6474 DATA 

6354 DATA "64B232ED97CA1 94721 90C8C86OB66F955E" 6476 DATA 

6356 DATA "F2BE466B60164655CA2CA64B2965AB2382" 6478 DATA 

6358 DATA"96B9195B2B65164B24CB650CBD6465CE68" 6480 DATA 

6360 DATA "46464669 B65721 8B 2321 9A E55C BC65E31 7" 6482 DATA 

6362 DATA "2B6432391 943232328 B20CC650C8CA5983" 6484 DATA 

6364 DATA "6D9572BE499D646499BE55C96432F96B4F" 6486 DATA 

6366 DATA"975953259572F19191919267BCA9943207" 6488DATA 

6368 DATA "DB2594734DB62C8CAB94595CA2C591 903E" 6490 DATA 

6370 DATA"CF9C8CAF95F2E73ED45906464B2A64B226" 6492 DATA 

6372 DATA"965AE69B6C591953232BB3C652CA595331" 6494 DATA 

6374 DATA "28B3BCA4CBE50CA39198CDF2BE51 C864BD" 6496 DATA 

6376 DATA "32321 B6472965A653C8CD0C0259195D926" 6498 DATA 

6378 DATA "2C931646433E7232BE57CB9CFB5165B21F" 6500 DATA 

63B0 DATA"865E32595F28B2B90DB66F919572692CB0" 6502 DATA 

6382 DATA "8CBB65728B31 95325963232329E4B23294" 6504 DATA 

6384 DATA "ED91 C9650C9657C932590C832D94B2DDD8" 6506 DATA 

6386 DATA "91C8CA594B2B669B219459C64B2D197CD4" 6508 DATA 

6388 DATA "B9C9657C86472F790D9F791 96B96D94535" 651 DATA 

6390 DATA "6B2933DE46433CE57CAF94F34338C965CA" 651 2 DATA 

6392 DATA"A3219532190C931646432F94328E432FD7" 6514 DATA 

6394 DATA "97390C96498B2321B3ACA1 91 97CE46571D" 6516 DATA 

6396 DATA"CA792C8CBBCF55EF2595B2B669B20CEBFD" 6518 DATA ' 

6398 DATA"29650CA8CAE516DB6532594328E464B237" 6520 DATA ' 

6400 DATA "32ED92C8641 91 CB6CAB9264B2F59190C69" 6522 DATA' 

6402 DATA " 59 1 90D B6 C F39572A64669B 1 6464646434E" 6524 DATA ' 

6404 DATA "2B945906472D72595B2B33C652CA5951 A2' : 6526 DATA 

6406 DATA "SB29316464339CA595329E4668603DE4B5" 6528 DATA' 

6408 DATA "B2B65E590678CA597E6465CB3BCB4CA1 C5" 6530 DATA' 

6410 DATA "9532F194590CA990CB650CB4CBBC96654C" 6532 DATA ' 

6412 DATA "C8CBBCA19190CF19532AE465F192C8CBD5" 6534 DATA " 

6414 DATA" B64324C831 650CBAC964339CAF9432A355" 6536 DATA " 

6416 DATA "6D9C64B2033408B23232E1 96CA59482F28" 6538 DATA " 

641 8 DATA "866996CC8651 671 92CB466D94328E51 C33" 6540 DATA ' 

6420 DATA "D0C038C965A321 95321 95C8641 91 C8CAE0" 6542 DATA " 

6422 DATA "591 95D9DE50CA99S32329E69B6DB1646F3" 6544 DATA" 

6424 DATA "4646432B945906759532865F992CAF901 2" 6546 DATA 

6426DATA"CEF2B652CB7CAB91976CAE436C59190C29" 6548 DATA 

6428 DATA "D72AE5E32F195B2192C931646433CE5638" 6550 DATA 

6430 DATA "CA594B2A321 91 90 D B6C591 953259699735" 6552 DATA " 

6432 DATA "79264191CB5C9656CACCDF2AE464652CFC" 6554 DATA " 

6434 DATA "B767192CB4663286436472595D8B2321D3" 6556 DATA " 

6436 DATA"9AE52CA192679CA19519D64656CA596F34" 6558 DATA " 

6438 DATA "9A62C8CAB94595CA2C59190CE72AE5OE69" 6560 DATA' 

6400 DATA "4B29E5DE5A650CA997BCFB516532594B55" 6562 DATA " 

6442 DATA "2D73195C933DE4B28B6C596F9499E32973" 6564 DATA " 

6444 DATA "652CA994731 9BE57CA390C864643239444" 6566 DATA " 

6446 DATA "B2D329E4668616464337CAB91 91 94B2D81" 6568 DATA" 

6448 DATA "D95CA2CDF2AE5E32197CB9CA59699779BE" 6570 DATA ' 

6450 DATA "2679C96546D9C64B2D18B2932397CE4655" 6572 DATA " 

6452 DATA-57CBF3218B232A6462D32EF259A6CE3216" 6574 DATA' 

6454 DATA "5968CF792CBD64653C8CB6532596D9271 7" 6576 DATA ' 

6456 DATA "9A1 08621 90CD3232592CBC65C32992CA00" 6578 DATA ' 



"596B98C59190CDB2B650CAB90OB6DB3C24" 
"E4B2D32A67AADB2328E4657C86759192AD" 
"65728B2D92C9653CAF91919266F95725C9" 
"91978C9651CB19432A65E32324CF79692C" 
"91 92C96465DB31 95B29653C8C8CA39A62A" 
"C59195728E55CA2C59190CE32596991904" 
"76CDB2A655C8CB195F3ED4594C9652CB65" 
" 5C D36D B1 6464646432 B94590678C A594C9" 
"B2A3165262C8C867394B2A653C86432351" 
"232833C652CA5951 8 B2931 646432F94325 " 
"28E466861 6464321 9572A33DE46464327D" 
"B94591C8CA195B2190C8C86DB6D9EB25E2" 
"9195F2EF28654CB8CC67BCB4CBBC866FB7" 
"94B2965E3232E598CA19472F8CA2C865CF" 
"4C8653286465DE464995C86532596F94D3" 
"59E32965BE5CB16464337C8CAD95B28E1A" 
"69B1646S5CA2CAE5162C8CB66F9572328C" 
"BE7AAC657CAD95B28654CD362CA4C591BC" 
"91 97394B2A653C8671 92CB466328643232" 
"392CAEC8323919432AE54CB194328E494B" 
" B6432321 90678CA59482A32596 D92CB9C7" 
"CA2C59498B2321 97CA1 94721 92C9338C63" 
"965A66861 646431 654CA1 96D9EABC65296" 
"CA595195CA2CB652CB197C6464B343385D" 
"C965A321 95321 90C931 6464337CAF94751 " 
"21 97CB9C864B24C836D96CA591 976CDB6B" 
"28651 CA39432EF2334D8B23232321 90C9D" 
"A990CF194B29654CA2D90CAD94B232EDDF" 
"9D652CA790C8E55CBC6465164323219020" 
"65B28654CBBC8CC6D91 C8CA591 95D91 C0B" 
'8CA19572A658CA194724CB64650CBC6541" 
T 678CA596F9739A1 8038C965A321 953202" 
1 95C862C8C866B9572F1 978CAD90C96429" 
98B2321 B6CB652C8CBB66D94328E51 CA30" 
•1 97791 9A6C59191 91 90C8654C8678CA51 1 " 
'94B2A651 6C96433ACA594F21 91 CAB978DB" 
" C8CA39A1 8038C965A321 95321 90C931 6AB" 
46432F94328E432F97390C9649906OB2E8" 
O94B232ED9B650CA39472865DE4669B26A" 
0C8E5B655CA99432B36D86DB2391 943250" 
AE54CB 1 94328E499B E55C8C8CA2CF1 94EC" 
'B2DF2E590C8C862C8C8C8C86C8654C868B" 
'78CA594B2A6516432B652C8CBB67594BDC" 
'29E43239572F1 91 947343038C965A321 05" 
•95321 95C862C8C866B94B2864B34DB6DFE" 
'B6DB66991 979C9654CA796991 943259588" 
'F2B65C31646432196D9194F23232C65046" 
'CA9970CF792CA39759195F2E597CBEB2C5" 
'32591 9572D7232E72592C8CBB66F957229" 
'590CDB232AE51CA59194590C8C867BC913" 
'65166D919699532324CF79196B95B296EB" 
58CBE3319EF2AE516DB65F2FAC9654CAD7" 
1 96329B25926432D72591 95725941 9AE01 " 
5A64B2C650CA995728321 91 90CF79572O6" 
8B3AC8CAD95B2865E3296465CE506572E2" 
3259498B23219AE52CA192CD36CE3259DD" 
68C8654C8679CAF95F2B64B232ED9EB2B2" 
3232E191CAD9195F2DB2E3343038C9657D" 
'A3239699532A6465CE46464321 91 90C8E2" 
654C862CA1 97C6465CB3ACA1 9632F8CA8D" 
79499C64B2D32A33195f2B656CD0C016BE" 



6580 DATA "4646464321 95321 9CE5265F2E72BE5AE32" 
6532 DATA"55CAF9459EF23232338366F92CA4CF191 E" 
6584 DATA "499C64B2D1 8B232AE465F0CE325968C866" 
6586 DATA "654CBCC678CA590DB6DB3E7232AE5F5984" 
6588 DATA "4B29E57CF3183DE52CB76699197794323A" 
6590 D ATA " B656 CA1 91 9267 1 92CB46432A646706C545" 
6592 DATA "9190DB6CA65A656C8CA2C964998C8CABF0" 
6594 DATA "97ACA195B2A65C33CE4B2A65D655CBC3C1" 
6596 DATA "6DB6D9E72AE5DE4B29E4B232ED9AE4B229" 
6598 DATA "AE5E3232E728B21 91 90C86465C65BE4600" 
6600 DATA "5C6636D91CBDE467D61652CA4CEB232884" 
6602 DATA "65A653C965E72D32B6701 81 6464B24CDAB" 
6604 DATA "F2328B39CA594D9067AC8C8CB866F95781 " 
6606 DATA "28E49B6DB6CF1 91 9632AE51 CAB94B21 E68" 
6608DATA"7AB164655CA2CF196F919532f2CAE51658" 
6610 DATA ' '4B232B B 6D8B2965A65D E499 EF2965 AE5B A" 
6612 DATA "D654C8CE033DE432592CBCE57C8CA2CEB4" 
6614DATA"325968C59190C8E5B64B2B65664B24DBC7" 
661 6 DATA "6D95C8CBD64B28E55CBACAB95B2592CB39" 
6618 DATA"8CC66992C932B9262CA4CEF29316526D1 F" 
6620 DATA "90C8CB866D9432A65364B24C59190CC67B" 
6622 DATA "50CA39;95B219BE55C964652CB4CA6D988" 
6624 DATA "D64655C8CBB678C8CA795F2C653CAF92AA" 
6626 DATA "CD0C3DE432592CBCE57C8CA2CE325968BD" 
6628 DATA "C591 90C8E5B64B2B65664B24DB6D95C89E" 
6630 DATA "CBD64B232C655CBACAB95B2592CB879E3B" 
6632 DATA "ACAE499BE55CAD95990CAD95B2965BB601" 
6634 DATA "CE325968C59499E3232F395F2864990CB1 " 
6636 DATA "8CBB65F2E72BE5AE5C337CAB92C8CA5973" 
6638 DATA "6994D9E72AE5D E4B29E4B232E F343021 5A' ' 
6640 DATA "95B2B33BCA59195F38367192CB4679CA95" 
6642 DATA "F95F2B329919432F1970C5949B6C59435E" 
6644 DATA "2F8C864B218B232198E52CA995B2F19BA4" 
6646 DATA "34CBBC96706C59192C933C64B2F1973971 " 
6648 DATA "F6A6C594328E465762CA4CEF29652CBC2F" 
6650 DATA "33ACB4CA6CE325968CF395F2BE56663219" 



DATA 87FF04FF58FF9100F3003500920101013D01 
2 DATA 65018802B402F10250026F02B1031E037803 
4 DATA EE041C046504BD05FA0541057805EA061706 
6 DATA 7406D707E7072907530791 08080822084908 
8 DATA 8709AD09E4091B0937095F09850A810AC80A 
10 DATA E2OA020A2E0A440A660A7F0A9A0BB90BD30B 
12 DATA EF0B050B270B3F0B560B800CA80CBE0CCF0C 
14 DATA F40CFF0C050C190C280C3B0C4A0C530C680C 
16 DATA 7B0C930DB60DC60DD50DDD0DEB0D040D1A0D 
18 DATA 2B0D3D0D4F0D6C0D780D9E0E560EBB0EC30E 
20 DATA CC0ED60EE20EEC0EF70EFD0E010E0B0E150E 
22 DATA 1B0E200E290E310E3B0E440E490E560E5B0E 
24 DATA 630E6C0E720E880F930FA00FC00FD10FDD0F 
26 DATA EA0FF90F060F210F250F2B0F2D0F310F3E0F 
28 DATA 430F450F4A0F560F5B0F6D0F4F0F610F630F 
30 DATA 6D0F720F740F780F7A0F7E0F801 086108810 
32 DATA 8D108F1094109810A210A410A610A810B210 
34 DATA B810BC10C410C610C810CC10CE10D010D210 
36 DATA D610D810DD10E710EB10ED10F210FB10FD10 
38 DATA 011005100C101010141019101D10201 02410 
40 DATA 29102D1 031103410381 03C1 0401 044104710 
42 DATA 4C104F1 0541 0581 05D105F1 061 10631 06510 
44 DATA 671069106F10791084119011B859BF6A50E0 
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46 DATA EB4AFBA642D1 1 1 5572031 F4244351 E93975B 

48 DATA BBF9D666423AE7BFF30ABA8DD4EF8D4850C4 
50 DATA 215CDA0683143F28435CAC4C21266C73B17D 
52 DATA D5B7EA5178F2C5AA6168C7E8DACF6CCCB2BD 
54 DATA DF0AC71CB18A5D3D968C3DEAEB3D07066C15 
56 DATA E386C869CD42607BAD2776ADBE1 A1 2679FA1 
58 DATA EB4231D4FAA9D2AF6CCC8C37DA37D0749C1E 
60 DATA 081E998DA48A3C5D56CCB0FFB6DD62B769A0 
62 DATA 4D4D5488EFCAC0F6AD673802C0DAF8BC2CEA 
64 DATA 977CF69 E8E1 AC292 F E67357 B AD277 A1 6047 5 
66 DATA 5B88C86E1A6187215C3E92943D61549987BC 
68 DATA 62651 B6EB62064B756F1FE2O44726DEEAA7B 
70 DATA E63D968E5AF3BB49D15B5D338F58D26F23A1 
72 DATA 501 987ED2763DDF81 69C26A35BF1 29BA396B 
74 DATA 39679F88CA9830AC919D3D4AC0778890F644 
76 DATA 5A06396AC5C8B455B45157334B2D54DD96A3 
78 DATA DF99AD5B9C74D6B5E3E9949F1BDD212C5FB9 
80 DATA 769BBA9621EF346F867F9D61645A07216FC3 
82 DATA 254B5310D8B9459FF883CB0CD083F4A699F0 
34 DATA 37216E4820778890F58A16CA1CCF403F772C 
86 DATA E8B7D07DEF11D22D1EF4C3943C65BA670E1B 
88 DATA A9AB34A5FF8ED943F24D29D5AF432C45B9A5 
90 DATA A006D8B896E048BA7128D3334455AEB0E81B 
92 DATA A9AB34A699A55 B783037 DA3EE BC F6FC93826 
94 DATA 87EECECB4709538B4711C5DAEFDS35B25772 
96 DATA 07BCO0E1C2B30BB08F076OE8337FB6DA712C 
98 DATA 79CCB2FB4A994B4377933C1B3F1115216C42 
100 DATA 43DD71329B94B9813BF0A951AE31 52620037 
102 DATA BDAC8A8E44A4C6DAF783CCD7A3A0E5D91B7F 
104 DATA BF33A3EC42B3F04D50881C189DEEF9E62B70 
106 DATA 54B41 1 DA761 C C5B F9F9ACB7A1 1 6F20 E0EB39 
108 DATA AO0070B34D3205A20506D1C06E59427C429D 
110 DATA 8E727D6FEDB563B4E90AB88F2D3088A537AB 
112 DATA C8BCB6DB27873802EDB380E0C1F714A89750 
114 DATA 20701 6929C006F770DBC4B59B9A0001F7728 
116 DATA 2B8D25AB649ED0F7C76E3A161C5E8B461EAE 
118 DATA 05A20506D19FFF08E03B4D30942D7C49D48A 
120 DATA 12F2F1B56FF4D5169968B3305E109C006F77 
122 DATA 19A0001F6D09F93AC3C68EA203DCD55C4369 
124 DATA A1D9D2F70BD2E6DF1F0ACCD2F1F5BA17DDF2 
126 DATA OFC1AF842667E0226C7C50BB62F7DA37C5BF 
128 DATA F2B607E51 5BEA6681 1 F5BAC479A1 55EF34A2 
130 DATA 74ACE875E685A3EBEA1 EB45B9D041 EBD6536 

132 DATA 31EF8FCC96AC83F2DA0D80E063D38C5DAD4A 
134 DATA F29DA2F7DA506A728C536EDBE685B859B84F 
136 DATA F04C83E5D4976FC7649987BCCBE62B6E97B4 

133 DATA 214B531F77933C1B388F2D3088A6E21DA2F3 
140 DATA 59BF99FFF58A035306CE44A4C750207DED28 
142 DATA D333B00FBOCADA2DC9A13173D2D4428242F3 
144 DATA 827A550E90A62138C3E06D01768DE991272F 
146 DATA D77DA5A6C87DA529C5B8ECB8EA4C83E5D497 
148 DATA 600O246A60679CB5DCB57C49D48A4FDC6112 
150 DATA BAB90A4C83E987C8F9A23CF476ACE6DBA837 
152 DATA D350BEF3053BC735AA9CE2FBC29E8EA27605 



168 DATA 2EB0F0EEC852467E2FD761B54A130B51FD0D 
170 DATA 31B0FDB2CC82596EBB9969DA76A17A2E4BF7 
172 DATA 6657781 2D2679F9ACA534D30804103F0A951 
174 DATA AD482076044B47BC623783E5D4981A17A251 
176 DATA 8765E3DAC3B214E2296AC5F82DAB5037D698 
178 DATA 26406B29CE13F0063288E1BF9FA7D2B15137 
180 DATA 122D5B6E294DF6216C8A340OBECAFA221A61 
182 DATA AB16DSB38DB7EC4BB109F19EF173D2D6B1D4 
184 DATA BF69AFC325473E64C98D80f63C4B50BFB538 
186 DATA F0063CB4B9749E1425A4BCE8E784934CC8B7 
188 DATA D0760246EDFF7C5127C1BB6FCD4224446D5A 
190 DATA 89FA2F6AFAA0795170DF8FC4AA7BE6984SD0 
192 DATA 428202679EF6097OC723503D207B1799BBCE 
194 DATA DF6956CBED48207A5E2205065E8F2780BF11 
196 DATA 53A3BF111521600C803945C04754EB3E9294 
198 DATA 9A92C0F81525E685B109D3891DB38F79177D 
200 DATA 545E152A899FFDE88A770E794C37FE23E7DB 
202 DATA 5C547569CFD97439985C735E413D9698217F 
204 DATA 00EEE874AA40DF307959D33CF621DC7C89C4 
206 DATA DF5735257CD556679D1335CCB1140BABDA06 
208 DATA 7B8D73EDADB55BE7D451573343FF61402DE3 
210 DATA 7C49D48OE3B08F076DB6F843F0069968B333 
212 DATA B010D8B9A96963A8EB44493AC3D9481 82653 
214 DATA E81AEF5978F0E1C3004441E184B52DD2684E 
216 DATA FAA036DAF7D62A297800BF1306C9B9A5A2B0 
218 DATA F58AC0FDCBDE1CFA0BE7D4515733444F3BF0 
220 DATA A941 AFB8BBC1A6625EF09C0038CAC9983090 
222 DATA F723503E1 2F6673D62EC8F0971 CEDA986BBB 
224 DATA D48D5D6171440099BB70D056CE4203B33770 
226 DATA A52AE698B8BD9696655BF1F5BFB2DDA1549E 
228 DATA 307DEF786685B859B84FF04C83BBA23A7238 
230 DATA A68036DAEDBD207B1799BBCEDF6956CCB20E 
232 DATA 29410EB0F44F088D5C8688ECD4E46819B7E5 
234 DATA 3432CC3F8EB0F07055594DB662512351E81E 
236 DATA B2A34CCF403C2B78F07DA5F7F2FA521 37116 
238 DATA 8A0D60D2355236FFEDBE94A8708D5C1 2034F 
240 DATA 690E1BC10F8426680837F6933E1D1B37C5EF 
242 DATA 347AC2304D0B61676140546FF123DDF68A4F 
244 DATA 1E680800562D8DBD290E45707768EF523750 
246 DATA 207957C60B0DC99FEDBEB69328DF8D13DA75 
248 DATA 1C1BF55533DD212C5F0AC7879156E81D3281 
250 DATA FE60C7D0E96E1A61AB16D8B38DB579AEEA7C 
252 DATA 6909F8CE38B9A96A18E91FB496B613F0A951 
254 DATA B98C37BC6237838B34981A17903C6A115OD5 
256 DATA AF79781 C79951 DA6655070B3EA4C371 El 2F6 
258 DATA 7C1 9A8B36D651 9C1 51 FADE8501 D0ECB2C20F 
260 DATA 0420007F741171C22295398C83D950A77CAC 
262 DATA A99D3 B1 0AE357A1 22C5C1 29C41 3C6A8661 46 
264 DATA 90A6013EFA089DB60B49E11B5310D8B9459F 
266 DATA FC2C8EDD54A80BE65C5AEDD0CB5B530F83AB 
268 DATA DC1E09490D48297B4A929C00383E92949A92 
270 DATA C0EE8898217F9037D68E580D3170A160401E 
272 DATA 245E38520CC66F4D4DE4AF06AF0F0FC3DC27 
274 DATA BA3F6C4D23A15E2E44B6659F5CB42399E22A 



154 DATA E9379D13357054B422E31BE8CA5D9C0079BB 276 DATA 9757340EFA964F5BDED50532CDA8B40E1951 



156 DATA A999982097C1 528D7C5DAE1 DBEC3852501 DB 

158 DATA F6A57859B8AA7A84AB2C93A89299EA7122E3 
160 DATA 1A94A7A48CC681DEDDA6475307E13SDF8D6E 
162 DATA A7E1D2A3F31BE5A346FFF783CCCF4010D8B8 
164 DATA 459FFDE88A774F59A96A1A63EDA53B236189 
166 DATA A8C4340CC3A3BA8C83D53E3BD871CD022295 



278 DATA E3E0E8F081C4DDC04484E987C53783827128 
280 DATA D16B398AD2679DE091C8BE1519A0000FB547 
282 DATA ED9D3E24AA3945O9D8F79667E037DA37D06F 
284 DATA CD025EF09DF89C9203B30EDAEDB634229875 
286 DATA E697001SA83E9294A2E0E91C3EA4B1B55C6A 
288 DATA 608A0037BB411D980E230BB710ACB1072761 



290 DATA 9E22625A73999837OA37O0749A062D7BF8AF 
292 DATA 649987639DB55B6EE845B0EB4D308037D07D 
294 DATA A529C5C7FD49E38CFC104D3B5837DA37D06F 
296 DATA CD023C21 BBF1 B926B7689DB55B6EEB45B0EB 
298 DATA 4D318E3AD68F33888AO29089FBD3A2FBCB7D 
300 DATA DB7FB3FF6140789329168B476DF4A98DB5EF 
302 DATA C733B037DA37D0749A062C9F334B50F1293C 
304 DATA BB2A5B8501 B7EC4BB1 09F0FC23BD0BF1 6FF3 
306 DATA A2B91CA3F6F62A1A58ABE444401E351631A4 
308 DATA 84FC562E59AC258E0CC66EB0F7F9D485A6E3 
310 DATA 1C34C5539EB9AC411582003EF58AEDBD0B59 
312 DATA 9E23F306D14820794A0AB4CD968O941AEDB6 
314 DATA 66F6323AFE82071A97DA079990B5B859B8EB 
316 DATA CA1B00DF8E139A8641CA6A177869CF84251D 
318 DATA AF6AE685900205064C9C79BD35BBDFAFB382 
320 DATA B751FE237859B6O0D3E070B3F0A018CE9218 
322 DATA 72566A523E780C3C4B7621DBAD6789EF346F 
324 DATA 21 9B9880534A91 71 CD B57056542CCE1 E1 54D 
326 DATA 2BE079AEEA676DE92BDF662D8ODAF0375CE2 
328 DATA B1 C6599EF1 69D27C90O1 EBCD1 6CD830F13DB 
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330 DATA 0BE5D36FFE8207BCE29E03140D63BCF4E8AB 
332 DATA FC6DD3CA2C5B0BB4AD3ACFDB35E9066F983C 
334 DATA 0E4A4DC73E1 50D020EC95671 CEA6251 9755A 
336 DATA A5C5E688BAA524FA1351 F037FB411371 CD02 
338 DATA 4421 D86C6F53CB483E891 DBE84EE09DCE685 
340 DATA BD8DCBCC48BD968C838D4AD5F24D27A3E2BC 
342 DATA D6C8F1 90354EFAD94E1 534B6FC2C9A927078 
344 DATA 3C1201C23F26578577A9A5A35F9976A50EF2 
346 DATA C320EB3D645EB83205A2737A59CF078D9A92 
348 DATA D0F79C8501EEAA5A466F98336D668620A7E0 
350 DATA F8E6BEE55421DDF6A977FD68B7C151B55F9A 



352 DATA 5ECE8B5C2C4D76E050F2C23D4599980F13F5 
354 DATA 23CDFDCC7890F6802A569F180E3D46OAEDB5 
356 DATA 0A0FD7E5AD486215333F7BD194F09CDFB00F 
358 DATA BB4247186B52BD76AA905BF522FB42D4B97D 
360 DATA D51E8B4B471EE3DD36B26652FEE980F7DA39 



10 DIM Z(31):F0R T-.-.1 T0 31:READ 

Z(T):Y = Y + Z(T):NEXT 
20 IF Y<>1586 THEN PRINT"CH£CKSUMS 

WRONG ,- :END 



30 F-0:Y = 0:H-OPENOUT("CODE"| 
40FORT-1 TO 204:PRINT#H,FNW(4) NEXT 
50 FORT- 1 TO 1165:P.RINT# H,FNW(8):NEXT 
60 CLOSE # H 
70 IF JM <> 13 THEN PRINT"ERROR IN LINES 

4100-4170" 
80 END 

100DEFFNW(O) 
110 IF F = THEN READA$:F = 1 
120 B = EVAL ("&" + LEFTS (A$.D)): 

A$ = MID$ 



818BC5A96E53 



M-ft#£!:£*7^ 
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^ 






5F956B3410AD334E0F595270A 



6C4C310A719F717452D731D53F 






F1CAC7C09A9340DB6FC 
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53 IcmsmvuHmA ss |||||||||| 



(A$,D + 1): IF LENAS = THEN F = 

130JM = ABS((JM + B)MOD100):X = X + D:IF 
X = 320THENX = 0:Y = Y + 1:1FJM<>Z(Y) 
THEN PRINT "ERROR IN LINESCP*; VI 00 
+ 900; "DTOn"; H00+ 1000: CLOSE#H:END 
140 =B 

990 DATA 1,17,80,67,79,6,43,58,38,96,63,68,38,80, 
6,7,62,80,80,98,83,20,50,45,9,51,22,42, 
54,75,68 
1 000 DATA 000C008A00DD01 1 601 7801 B8021 60285 
1010 DATA 02C102E9030C0338037603D703F60438 
1020 DATA 04A60500057705A505EF0649068706CE 
1030 DATA 0705077807A306010864087408B608DF 
1040 DATA 091D099609B009D70A150A3C0A730AAA 
1050 DATA 0AC60AEF0B1 50841 0B580B760B960BC2 
1060 DATA 0BD80BFA0C130C2E0C4D0C670C830C98 
1070 DATA 0CBA0CD20CE90D130D3B0D510D630D88 
1080 DATA 0D930D9D0DB10DC00DD30DE20DEB0DFF 
1090 DATA 0E120E2A0E4E0E5E0E6D0E750E830E9C 
1100 DATA 0EB20EC30ED50EE70F070F130F380F50 
1110 DATA 0F550F5D0F660F700F7C0F860F910F97 
1120 DATA 0F9B0FA50FAF0FB50FBA0FC30FCB0FD5 
1130 DATA 0FDE0FE30FF00FF50FFD1 0061 00C1 023 
1140 DATA 102E103B1061106F107B1088109710A5 
1150 DATA 10C310C710CD10CF10D310E110E610E8 
1160 DATA 10ED10F910FE11001102110411061110 
1170 DATA 11151117111B111D112111231129112B 
1180 DATA 113011321137113B114511471149114B 
1190 DATA 1155115B115F11671169116B116F1171 
1200 DATA 117311751179117B118011BA118E1190 
1210 DATA1195119B11A011A411A811AF11B311B7 
1 220 DATA 1 1 BC1 1 C01 1 C31 1 C71 1 CC1 1 D01 1 D41 1 D7 
1230 DATA 11 OBI 1DF11E311E711EA11EF11F211F7 
1240 DATA 11FB1 2001 2021 2041 2061 2081 20A120C 
1250 DATA 121 2121C12271 234 
1260 DATA 6B3F5A384B6BE1D0D2C2A77BD4F25691 
1270 DATA 36C4439F5C17949E6756FA3BA3643BC2 
1280 DATA A8BB13D7D4004FE5155A0C9D3170A0D5 
1290 DATA 359CF25B12DAC4D21743C77EA5865BE5 
1300 DATA 5A348F2F7E9416BECC0EAD95F0E52BD3 
1310 DATA 18D371B468E1D3BDB3B6DEDBC17E70E8 
1320 DATA 86743866073ED4A46A8FD2C226B9E1E3 
1330 DATA B456FA81AA471D3BCC0E2BA55A38C0D0 
1340 DATA 1C755038191F881FBC8B248E31CDD65E 
1350 DATA EEC53A001C9A8E2B96F8EOD4720FB4FC 
1360 DATA 34808BD6DA8BB70DD777B1CEB4E1F069 
1370 DATA 8BE637298FD2C2576D4778A1F98694B8 
1380 DATA 2D7220A65129F1C3A0492DO69A89F766 
1390 DATA B8E42118217EF2D6EFED73C43E667C2A 
1400 DATA F4DA8F165C514A3B590F34ODA2A37052 
1410 DATA EE071AD0F95O64A7A4A69D968BA9F2DB 
1420 DATA 68B96CB9994A891F442B80A1D052AF67 
1430 DATA 5D24021EEE8176914D72D15AB5148D15 
1440 DATA B5CB32CD17A9853707578BE698AD551D 
1450 DATA 262885FA774BA8F70EA7BDEE2D7CE8A5 
1460 DATA 07A0011CE116B95829F1BBC856C43453 
1470 DATA 1 E6SB1 2E54C31 221 C6291 D21 B BC8AD7F 
1480 DATA 021E6892E5625D243034E7B25ACB3D10 
1490 DATA 9B1F142EA78B94C46FE550BO239A8E19 
1500 DATA 2D6B0A87D6EB9F29AA931C512BD18B75 
1 510 DATA 88698E1 1452ED601 FC2E72B831 CD544A 



ilRDUBB^HSl 



• The text used in Escape has been run 
through INPUT'S text compressor. The 
resulting hex code has been put into DATA 
statements. Unfortunately, you can never 
be sure you have entered coded text 
correctly, simply because you cannot read 
it. The programs have been written to 
incorporate checksums which will indicate 
if there are any errors in the data. If } when 
you RUN the completed DATA program, a 
checksum error is reported, simply look 
through the indicated line or lines for a 
typing mistake. 



1520 OATA 5AAC8B152D660A076068C6296B3F5A38 
1530 DATA B8CAEFD04EEF0727O30AC7CC4512C78C 
1540 DATA B5DA6FDB8773D7B342E250BD0FB18BB4 
1550 DATA B3E9ED08F1DB368032COF92DCB9ACAFC 
1560 DATA BC94F7449512BF1CC343EC22C64CBC37 
1570 DATA AE604EE58B544AFC38262O23O0DA8303 
1580 DATA 544AFCA8115EB66DA1234333809BDA65 
1590 DATA ED23343F4E70B4C2199C89D0E779EF1D 
1600 DATA B5D471AB1DF6DB919B1FC04570917B4B 
1610 DATA 3A6BE1A0A685032D1C2D9C690F8E3A28 
1620 DATA EE13D6729F73F014B76D83EB5948AB1D 
1630 DATA 8B6985C462BD3545E5B6E9451BC0453C 
1640 DATA 0A07A06D48A5C40F23038DBA0338262D 
1650 DATA DE46BC37D01CADE529F720C0ACA58EAB 
1660 DATA F8509FE417BA6F47470B5F9CA385AF9E 
1670 DATA A05107S53960097F2E1 431 CD8B544AFC 
1680 DATA B771F392B2A8AA7F6366D232008E082F 
1690 DATA 3413EFCD0AED2030C7433B76DO83A30E 
1700 OATA 6AC35D55F852DA21 E066D38BD34C0B9F 
1710 DATA 3074EC2384BFE6B8D04C0B5F7OEC23C0 
1720 DATA F8E2BCD0C045385AE687B7726926BF95 
1730 DATA C53AF691F0D5A2F9ADF4A3B486667668 
1740 DATA 1F6AEC23051D5C0437E5BE9ECO0FF0B1 
1750 OATA F303AD16E1000E5A5E0CD4E39E724B2D 
1760 DATA 3O5AF8229D8A614EC0D08CDB50385A38 
1770 OATA 39034D70F23B2695EF812639DBEAF952 
1780 DATA 5368EDC5E53DC834242E072F29424C2B 
1790 DATA BD8887D880067036D5E0621DF87AB621 
1800 DATA 34EAA8942AA5CD0F3O108666492E5ACB 
1810 DATA 5274B1A2C283C2D5D57B02F4A1A7100F 
1820 DATA ED E1 4339698 EF6025730A79248A7257E 
1830 DATA 452A257E6AB96CB99539034DA9033826 
1840 DATA 071AF81ABF2D972DF32295129908AFF6 
1850 DATA 6852D4D54B3E501FAFE71OCDE1366BB5 
1860 DATA 899AC241E229A4F72A80A13942FC629D 
1870 DATA F6A30E9F1D886906D471B5149BE4A2B5 
1880 DATA 1C5E4AE929BCF9011721189AFC8ED2C2 
1890 DATA 3E1E2E5E812635C4F8A676D9FAAB385A 
1900 DATA 132D2B856A9A12A99AE4A2720CA52795 
1910 DATA 5OOF01C78754C7A70DE0B8E252E2276F 
1920 DATA 191 973A419C031690CCD4478C5BA5811 
1930 DATA 0AE97DA0295ACF786D649A6BE124BBA6 



1940 DATA B4C5288A3AA4430DBED6038D4D72583C 
1950 DATA AE96A20348EF70B1AF7FC653CAB6E1D8 
1960 DATA 7D528B147DB1110ED9834CB3E99A3B6F 
1970 DATA FAA2F6DBE6F8CB2F5213F8584A9B1F68 
1980 DATA 0031,CD5429F18342A0492O523113E165 
1990 DATA 8023DE9B6652993352226068OB636607 
2000 DATA E394B343F9456BA938D0ACAD41A69956 
2010 DATA 144E2AEB89B20770A81FC06138D1B252 
2020 DATA 6FDB2E9222764EA90EB4BBEC237ACB3E 
2030 DATA 172B629A880DB4580A314C6C74719F71 
2040 DATA D531O752C42F6A3F99B348A5006E6352 
2050 DATA 3613EFCD077039357539B5BCA5A5151E 
2060 DATA 8567E93C88484D134782775062FC006E 
2070 DATA 703BC2A745A4434DFB095BEDA17A6BAF 
2080 DATA E0F052F97C2AC50FD1C29966688283C2 
2090 DATA 5FE2BD190F34C991E6251FA8OAD7F38E 
2100 DATA 524CB3B5E2BD1968E97D5038F113780A 
2110 DATA F1433A2O002E52295CAC03D0B356751C 
2120 DATA A95129F154E60C3431189A999D8A530A 
2130 DATA 977A0FB4955FD47E7OA0092B8E780AE9 
2140 DATA 7E38CC7ADCDC67244F6AF555183AF4DA 
2150 DATA C15FF35DA199163EDA3B208057904A1D 
2160 DATA 94567ECC97B85DCF5771421FBF492DD6 
2170 DATA 079AB5354C732O4516EB6245EF0S9F81 
2180 DATA 6DDBE23E2D4585BE0E404C734FDE1A14 
2190 DATA E648A5C48EF0103B11E165DB691919C0 
2200 DATA 113034336A29BA58456BA9E3D1433BC9 
2210 OATA 54A619C85A6F1B68C461FtF8E2C14580 
2220 DATA D3ADB604A17A4FE8D777DBB601F82AAA 
2230 DATA CA86143FB122A639CF408B753EE7F792 
2240 DATA 1415FAE21431COB5544AFC2EBC4CEE8B 
2250 DATA 7B336622C80670C4A19949CBC95D2480 
2260 DATA 2FF90C342EEE737E1CAFF0D0BB9EA9F5 
2270 DATA D6ED48950958142F0515B7A33B38E474 
2280 DATA 521 2774B8B9069B6557E69E1 FB631 FC7 
2290 DATA 492ODA35F7E607FB3860689E7050385A 
2300 DATA 082F034D498EFC8EDBB66DA0251FA86F 
2310 DATA D7F38EE64CB3B5DAA350EA8322145DAC 
2320 DATA C221B7237A39553BADF981060310D30C 
2330 DATA 751C5CACF86OB3569AD4A8944C2A7306 
2340 DATA AB3D0CCO257E7079D2FB72F80A17F114 
2350 DATA B5D3D00E6D008753F0A914BF8313DC8E 
2360 DATA 9B0FE950A6858FC2763888699B1EBE94 
2370 DATA B4F04538CD31427B385A380C1C1C7550 
2380 DATA C27D1749629A2794838B7500F143AA6F 
2390 DATA 5BDA7D5C68D4EDD4E2F1 B51E1 B6892C3 
2400 DATA 2AA5CD6F1 64503381 D07A79DA8F7AC55 
2410 DATA D1C2774BDA5504E29FA0AC075AF45198 
2420 DATA 8A98E65B032DD6C5DA6BBE6D9E427A9F 
2430 DATA 8A2EEE33A73AE65AE4AD45ED8E544AFC 
2440 DATA DE9B6D6332328023606866O212EA3D10 
2450 DATA 7A2FD6DD96F91DF851E5A79D4D6AB4F0 
2460 DATA F7921FB7B4281AFCC29966ED865EFBD1 
2470 DATA B36CD1812086104270BC043D63AEA5E8 
2480 DATA 2AB4F640674A2B3F8D4BC4AE17EB84BE 
2490 DATA 4F70A76451F8A17A4FE029C46D4782DE 
2500 DATA 4798D2E22E56C4340B1F6BB14A6OB643 
2510 DATA C57DBE98B514DDB63A0031CD94F8C1C5 
2520 DATA 069AD4A8704C2A734AFCE006034D6A54 
2530 DATA A199082F56381080B10EO88FC0612171 
2540 DATA BS5FA41 FEFC78C532FE5CD4E8F1 02F07 
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2550 DATA 3A285CC4A34EEC40C42FDEA2DCA0E5B7 
2560 DATA 629AA3B5B458172BCF977A0F85D65E5C 
2570 DATA 68524C332695391 B108F163E1 CDC551 C 
2580 DATA 849856483F388053CB1695128126B598 



mkM\ 



10 PCLEAR5:CLS 

20FORK = 0TO359:READA$:T = 0:FORJ = 0TO12 

30 V = VAL("SH" + MID$(A$,J'2 + 1 ,2)) 

40T = T + V:POKE3074 + K*13 + J,V 

50 NEXT:READC:IF T< >C THEN PRINT"CHECKSUM 

ERROR IN LINE";1000 + K - 10:END 
60 NEXT 

1000 DATA 000000E25A3F70F4385AD2DD27.1351 
1010 DATA C4B4A455BCB527D0F10DA7A504,1831 
1020 DATA FAE1DFD56CFE2A76F16943C6AE,2218 
1030 DATA A3953C03527431 68575681 C0C5.1 41 7 
1040 DATA 6FCCDB6E1AE9626D104FD8E862J751 
1050 DATA FCCEDC35297C36DF9A2D5F1 202,1 695 
1060 DATA 8FD56D6876669D7CBE25A36DB6,1751 
1070 DATA E3A6317BA7C4B47BD6D67D0£1D,1827 
1080 DATA 586A4D43E0E25A51ED5C7C3926,15O7 
1090 DATA 81FAADAD0EC751B6DEAA94AC3B,1972 
1100 DATA 3343E25A3850751C1F8853E1C4,1386 
1110 DATA 91778BDAD9A6DA00758BDC571D.1814 
1120 DATA 3439A90BF12DF9681EE5AD1 700,1 591 
1130 DATA 681E2F6B3AC5DF5DA7C36DB86D,1623 
1140 DATA 0A4DF9A2O5F12D28FA178A9DB8,1789 
1 1 50 DATA 9486F9 A6D0391 6 E1 F894A8EB1 6,2030 
1160 DATA A4D03DD44CD0C08792E35BC9F8,2169 
1170 DATA 8719F717BCA9F198F8968FDC3D,2002 
1180 DATA 0DDA528AE6E9A07ACA93851D1 6,1729 
1190 DATA 80D036FDA3B22EFCAD3BF6D49F,2131 
1200 DATA 99531772D972D03F12953343AD,1433 
1 21 DATA 1 1 9EBD4B40780891 7645DA07B9.1 373 
1220 DATA 6B4649A145D14B5CD3B2EFDCDE,1926 
1230 DATA 16A45F9A2D5C23AAB59F50A504,1366 
1240 DATA F7A84B77ED77EDC3A97A1BE25A,2031 
1250 DATA 3803400EB1722DC39177E252A6,1406 
1260 DATA 69A145D62D03C422586A8423A5,1353 
1270 DATA 38CFF5C8BC9340F01122EB172D,1701 
1280 DATA 9739A18040F72D68B8507E6F1 2,1476 
1290 DATA 522E9EF54395BC66534470E14D,1602 
1300 DATA 65A533FD7ACA2392754DB6DBD1,1879 
1310 DATA 2B1 1 8E69A00758B916E1 C8B8F1 ,1622 
1320 DATA 29533531 45D62D0385359694E3,1 268 
1330 DATA 3430E25A3F70F43BF33B82707E,1564 
1340 DATA F4ECCC70AD386DC49177EE16B6.2036 
1350 DATA 7AEE70F7AA1C4856916DB6EC43.1814 
1360 DATA C54EDE9B3803F12DF9CD3BF2A9,1921 
1370 DATA ACB44DBDE52F072FC4A548BB10,15B4 
1380 DATA F0F751331CA9CC15DBF129522EJ670 
1390 DATA 32D263B03DAD0A8FC4A548B6DB,1708 
1400 DATA BC2266868E85977EE6E00FCD08,1692 
1410 DATA FB70AD1C13B42267071DD5E79EJ538 
1420 DATA B1D4B591DBF61D45C01F9B4B74,1847 
1430 DATA 46141 C2D670A2D01F12D334F89,875 
1440 DATA 68E141D470DCB584FB853C1CE7,1954 
1450 DATA FAE0E3B5690B36DB6DB890AD3U930 
1460 DATA 08A6B7AC48BD36DCA788B8036D,1663 
1470 DATA A0070A0FC4A548BA8D038CB498,1427 



1480 DATA E01BA88F72D68E686083OCA6AE,1923 
1490 DATA 3A96B3927D43E2A76FBA179C5B,1685 
1500 DATA 7C4B479EAF8968E1 41 D4681 FC5,1 678 
1510 DATA 56039CD36D142EFC4A548B92F3,1569 
1520 DATA 71DFEAAA2E32D2666377844700,1569 
1530 DATA 7BA899A18083B429D8ED0F1C3A,1639 
1540 DATA 8E0F7F695DC36A21B7694BE22F,1452 
1550 DATA 4D9C13E25A669C7D8E86177CD7,1589 
1560 DATA F08BE25A66868FB1F742F38BE2,2172 
1570 DATA 5A3845C072B787E695BF266A3E,1615 
1580 DATA C758BF345ABE25A51FAADAD0EC,1875 
1590 DATA CD0C8FB1 A87C1 1 70741 67AFB94,1 617 
1600 DATA DEC7C03F345AB681F9541C01C3,1686 
1610 DATA C7A818BC5A96E53C45B7C4B47A,1858 
1620 DATA 9CC3153B5C6686E25A3850704D,1400 
1630 DATA 03E55263BF2392681EF52F9EBB,1553 
1640 DATA BDAD0A669C1EF29783971215A6,1540 
1650 DATA 21 1 4EC43C45E9B3803400EB1 70,1 227 
1660 DATA 6DB6DB6A90DB3D7C4A54751A07,1472 
1670 DATA E6D295334340F72D68B926B517,1546 
1680 DATA 452D5C2836DB785E804F7AA1E2,1449 
1690 DATA 14F427287C3DA05ED1CD39539B.1488 
1700 DATA 2BBF12D3AB0FC4A548B96CB96A,1666 
1710 DATA 4D03E55263803A91 AF81A072D9.1616 
1720 DATA 72FC4A548BCFDDE1133ABA9393,1873 
1730 DATA 40FA81F25E734779EBEE16B428,1801 
1740 DATA 385351 3EF4853C473430AA758B, 1316 
1750 DATA F10A7C3ABFDB19A6B1D14B56DB,1701 
1760 DATA 8EA5AD1724FAB4A5E1C01F9BC2,1931 
1770 DATA 99A180845F12D28EFC5E2E1E3E/I523 
1780 DATA C4352681D977EE7C4B47t577EA,1634 
1790 DATA 14ACB44EA44A69A9CCE2E49B52,1857 
1800 DATA A4F4A198E03BEBB4F87D521 F95,2054 
1810 DATA B8E00DB5BC9F894A91CC719693,1919 
1820 DATA 1C01DE113343428BAC5A07DE90,1226 
1830 DATA A787452D734E36D35D9270C5U,1442 
1840 DATA 62D0350EAC3A8D03D6BE3C586E.1409 
1850 DATA 49A07452O5D62E0FBD214F19FEJ499 
1860 DATA B F636DB70 D B 650A45 A93E8708D , 1 743 
1870 DATA 8BED9A707B2DE771BD74EDFB84.2079 
1880 DATA 5F45F97F1CAC7C09A9340DB6FC1541 
1890 DATA DA52A669A0070A0FC4A548B526.1415 
1900 DATA 81 B77844CC7BA88E00F954999A,1777 
1910 DATA 1889481 D998F6D0ECE66E3A96B,1492 
1920 DATA 45F956B3410AD334E0F595270A,1588 
1930 DATA 3803D944B0E00DB7EA14ACB44E,1624 
1940 DATA 248BBEA539D88BB22ED0371F65,1561 
1950 DATA BD11CD342BBAC5A06DB6DB6DB8,1849 
1960 DATA 6C4C31 0A719F71 7452D731 D53F,1 366 
1970 DATA 708BF129522F95498E00F751 33,1 405 
1980 DATA 43D4E5C01EF2D4E5D478569694.2129 
1990 DATA F3A59B6DBC289A6A45C283BC1 2,1760 
2000 DATA 3B7007E2953E2A7704D43AB117J250 
2010 DATA B56C27ED77EDEF543F329786E0.1866 
2020 DATA 0FC52A7C669F1 2D1 C28382681 E,1 455 
2030 DATA EA2377E4724D03EA07C979CD1D,1607 
2040 DATA E7AFB85AD9A6A4D03DD4470A0F,1804 
2050 DATA BD214F027E25A7561B6DF894A9,1420 
2060 DATA 17006801D62E0E3AAB59F894A8,1284 
2070 DATA D49A07CAA4CCD0C0C4294E2A76,1818 
2080 DATA D03DEA5DFB845F994AC2683BD2,1868 



2090 DATA 14F1179EAD070FC48CFB9B8ABE,1 707 
2100 DATA AD49FB87A030BBE6BF827C4B4C1853 
2110 DATA D0C080EF68752A415F31F99694,1786 
2120 DATA CF5D88971F426DC55F58B527E5,1622 
2130 DATA 5ACD03A296B9A6851758B40FE2J626 
2140 DATA A779F717D0A6A5AE69A0070A0D,1568 
2150 DATA B 5B C9 F894A91 CC7621 E2 A76EF0, 1 982 
2160 DATA 88E00DB6E32D266686428BA296,1618 
2170 DATA AE3A96B45C93B43D1C90A669B7,1668 
2180 DATA 51A07AD7C78B0E24022E0F1016J067 
2190 DATA D5BA7D09EF543BEBD5157C009F,1667 
2200 DATA 8A43651CD36DA145D62D03F92F,1442 
2210 DATA 7E73EE2FA1514B5CD36DA285DF,1773 
2220 DATA 894A917DC9DE11331EEA238036,1453 
2230 DATA E32D266686917724D03F92F7E7,1741 
2240 DATA 3EE2ED0F15BC5D46DBDCAA476E,1702 
2250 DATA B178A2C04D1DB8A82BA721G1DA,1763 
2260 DATA 5BB89295B34E1 1 7C4B477E6771 ,1 456 
2270 DATA C7D8DBfB35DA2D49FB07E6F79E,2167 
2280 DATA 6860E25A3850704D03BC223BF2,1367 
2290 DATA 392681 BEA07C979A3BCF5F70B5,1 657 
2300 DATA B34E0FA9428EB16DB6E8A1111D,1556 
2310 DATA B90E0E3B55397A0681B6DF9543,1292 
2320 DATA 34D003AC5C1C7556B3F12951A9,1469 
2330 DATA 3681F2A9333430F70B79707E25.1399 
2340 DATA F872F BD21 4F1 1 70A0CD0D3B F68, 1 845 
2350 DATA EE00FC52A7C54EDC138350EAC3,1893 
2360 DATA E6F0A36DF12D334D070ED297C3,1733 
2370 DATA D36708BE25A3DA118E6860E25A,1605 
2380 DATA 3850751 C1C49177DC294279A6D,1174 
2390 DATA B6D003AC5C1F5487E56E3ED4B7,1703 
2400 DATA A9DBA8DB40F5AF8F161C9340FC,1915 
2410 DATA DA52A38036DB45169DFB7071D5,1801 
2420 DATA 5ACF7AB4B77C4B47880DC55DA0,1603 
2430 DATA 7ACA09F9851F45A5BE69A145D6,1719 
2440 DATA 2D03E6BDFB9F7A429E33EE2E8A,1696 
2450 DATA 5AE63AA7EE116DADE4FC4A548E,1862 
2460 DATA 63DO447007196933343040F7A8,1267 
2470 DATA 4B7758BDEBE077E569DFB7E654,2103 
2480 DATA 6DF12D1A938FC97BFE0D145A77,1531 
2490 DATA EF34F8968FDC3D130745B2CD08.1599 
2500 DATA 4380F426BC70E8A5AE6340F6B4,1937 
2510 DATA 2A36DB6FCCB4A67AEC44BBFA13.1855 
2520 DATA AC5D929DC13DEA8F158E214F02,1476 
2530 DATA 7EF426BEDE2D2984734D0A2EB1,1415 
2540 DATA 681F12D0EDED4A98BE7DC5D14B,1857 
2550 DATA 5CD36DB400EB1707E252A35268,1514 
2560 DATA 1F2A931C020FC4A546A4D03BC2,1321 
2570 DATA 26686040E15A3F603AC5C48587,1495 
2580 DATA 006DB6DFAA97EE14E331FBD3B1,2008 
2590 DATA EF29783978847E22E141C29481.1630 
2600 DATA D89D4745BC5F896FCB40F72D68,1707 
2610 DATA E64C51758B40F7A97CF5C5ED68,2030 
2620 DATA 5334D49A07CAA4C7C4B47880E2,1923 
2630 DATA AEE0E242B4C4229B700707E252,1689 
2640 DATA A396CB98B52681DE111C93E25A,1746 
2650 DATA 668640D521 B67AF894A8EB1 769,1 777 
2660 DATA 63E059A180E25A3850704O03DD,1566 
2670 DATA 4477E4724E0DB7691 D8DA1 1 8C3,1 506 
2680 DATA B334D0038507E252A45B70B48E.1579 
2690 DATA DF6298E35F045C01C1DA14ECCC,1747 
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COMPUTERS 
IN CONTROL 



A look at how your computer can 
receive information from the outside 
world, process it and use the data to 
operate control devices for a variety 
of systems 



Microelectronics have revolutionized the 
control of all sorts of domestic and industrial 
machines and manufacturing processes. In 
place of the dozens of relays and motor driven 
timeclocks that used to control equipment 
like domestic washing machines there is now a 
single neat package of microelectronic com- 
ponents. And in industry, computers have 
made robots into a practical reality for all 
sorts of applications. 

Microelectronic control systems come in 
four main guises; wired logic, custom in- 
tegrated circuits, semi-custom integrated cir- 
cuits and microprocessors. Of these, the 
biggest revolution has been the micropro- 
cessor, which has widened the scope and 
lowered the cost of microelectronic systems 
by introducing the idea of software control. A 
single microprocessor circuit can be used for a 
number of different applications simply by 
reprogramming it, unlike the other three 
types whose function can't be changed with- 
out changing their circuitry. 

Microprocessors are built into many pieces 
of equipment and given suitable software for 
the job in hand. Of course, even in this sort of 
application, the microprocessor can't be used 
on its own, it has to have all the other chips 
which virtually turn it into a microcomputer 
before it can be used to do anything. So every 
owner of a personal computer has the heart of 
a potentially versatile control system at their 
fingertips and now there is a range of special 
interfaces and construction kits available for 
the hobbyist — anybody can control the real 
world with their micro. 

The hobbyist has a terrific advantage over 
the professional system designers — plenty of 
time, the most valuable asset. There are lots of 
commercial examples of computer based con- 
trol systems and for each one a whole series of 
new applications has yet to be tried. 



POSSIBILITIES 



Although your computer has the capability to 
direct a sophisticated control system, it can- 
not do this without the addition of several 
other parts. 

A typical application requires an input and 
an output, both of which are outside the terms 
of the normal working of the computer — in 



which input is via the keyboard and output is 
to the screen or loudspeaker. A typical mech- 
anical control system, for example, may need 
to be triggered when a component has reached 
a particular temperature, in which case it 
moves the component itself. So the input is 
fed via a sensor, whose signal is processed by 
the computer, which then outputs a signal to 
an actuator. 

You have already seen examples of a 
computer operating in just such a way, in the 
article on robots (pages 884 to 888). Kits like 
those described there are just one specialized 
example of a control system. This article looks 
at the general aspects of using your computer 
to control external devices. This breaks down 
into three areas — sensors, actuators and their 
connection to the computer. But first, let's 
look at the possibilities. 

Four areas worth exploring are: 

• Timing and sequence control. 

• Regulatory control. 

• Data reduction. 

• People/machine interfaces. 



TIMING AND SEQUENCE 



Timing and sequence controls are the systems 
used in everyday things like washing ma- 
chines, sewing machines and central heating 
controls. The computer built into these is 
much more compact and reliable than the 
mechanical systems it has replaced. It can 
cope with much more complex operating 
sequences, its timing control is more precise 
and covers a much wider range, and the 
timing and sequence control can be altered 
simply by changing the software. 

Of course, you would not want to bury 
your computer in the bowels of a washing 
machine, but a popular and practical area of 
application might be in a simple, but slightly 
more intelligent than normal, burglar alarm. 
At its simplest a burglar alarm consists of a 
loop of wire connected to switches on all of 
the exterior doors and windows. When these 
are closed the circuit is complete and an 
electric current can flow. If the circuit is 
broken by opening a window or door then an 
alarm bell sounds. The trouble is that with so 
many'mechanical switches the likelihood of a 
bad contact or failed switch causing a false 



alarm is high. This is where a computer can 
make a valuable contribution. If a second 
circuit is added to all the interior doors and 
both the circuits are connected to a micro the 
software can make a few checks before sound- 
ing the alarm. The logic goes like this: 

'If a burglar breaks in, then shortly after 
the exterior circuit is broken an interior door 
is likely to be opened, breaking the interior 
circuit. In this case both circuits are broken in 
the correct sequence and so the alarm is 
activated. If, on the other hand, either the 
exterior or interior circuits are broken on 
their own then there is likely to be a fault 
rather than an intruder so don't sound the 
alarm but report a fault.' 

With suitable communication systems 
which are already available, the micro could 
even ring either the police to report a break- 
in, or the maintenance people to report a fault. 

A lot of people without burglar alarms use 
simple time-switches to turn a light on and off 
to deter burglars. But sometimes the regular- 
ity of the light signals an empty house. A 
micro can be used to control a number of 
lights and other things like televisions and 
radios in a complex pattern, different for 
every day over a period of up to a month, say, 
and sequence could even be triggered by the 
dawn and dusk. 

Another prime candidate for micro control 
is the control of a model railway layout with 
the software checking on the interlocking of 
points and signals. A further possibility is to 
control a number of slide projectors. Two or 
more slide projectors can be linked so as to 
produce interesting effects on the screen. The 
micro could control the brightness of all the 
lamps, creating fades up or down the mixes 
from one slide to another. It could control all 
the slide positions and report the number of 
the slides in each projector — or even synch- 
ronize the changes of slides to music. 



REGULATORY CONTROL 



Regulatory control is used in any application 
where an action has to be taken based on 
comparing readings taken by the micro with 
desired readings prescribed in the software. 
In a central heating controller the micro can, 
for example, monitor the temperature of 
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MICROELECTRONIC CONTROLS 



POSSIBILITIES 



TIMING AND SEQUENCE 



REGULATORY CONTROL 



DATA REDUCTION 



DETECTION 



ACTUATION 



CONNECTIONS 



MECHANICAL SYSTEMS 



SOFTWARE 




different rooms, the boiler and the hot water 
tank and operate water valves and control the 
boiler accordingly. The entire system is an 
example of a servo-mechanism control, rely- 
ing on closed-loop control. 

Looking at exactly what the term closed- 
loop means will also demonstrate why the 
micro is so versatile. Consider this problem — 
you want to regulate the intensity of an 
electric lamp so that the level of light is 
constant, taking into account changes in the 
daylight coming through a window. The 
computer is connected to an interface that 
controls the intensity of the lamp and a light 
sensor which supplies it (feeds back) 
information about the room's intensity. A 
closed-loop feedback system could then be set 
up in software something like this: 





READ LIGHT LEVEL 
^ 1 h 




n 


°- 


CALCULATE 
DIFFERENCE 





n 




ALTER OUTPUT BY 
THE DIFFERENCE 













When this program is run, the brightness of 
the light will oscillate wildly, first getting 
brighter, then darker than the target level. 
This is caused by thermal fag in the lamp, 
which can't respond as quickly as the com- 
puter. When the voltage fed to the lamp is 
changed it takes a little while for its filament 
to cool down or heat up, but in the meantime 
the computer has taken another reading of the 
light level and, noting that there is still an 
error, it increases the correction. Eventually, 
when the lamp catches up, the correction is 
too big and the process reverses. To avoid this 
some more simple rules have to be added: 




This time, the system will gradually adjust 
the light to the target level and keep it there. 
Rules can be added to cope with abrupt or 
transitory changes in external illumination. 



DATA REDUCTION, INTERFACES 



Data reduction and people/machine inter- 
faces form an important part of any control 
system — but are also interesting on their own 
count. In many control applications, the 
micro receives information from lots of 
sources like sensors and converts it to a more 
intelligible or usable form — as in the light 
example above. The software checks for 
values falling within set limits, performs unit 
conversions, filters data and checks for logical 
inconsistencies. 

Two examples of applications for data 
reduction techniques would be to produce a 
good colour analyser for amateur phot- 
ographers or perhaps an automotive analyser 
for people wishing to tune their car engines — 
and there are already commercial machines to 
do this. In the latter example, suitable sensors 
connected to the computer could monitor the 
carbon dioxide level in the exhaust fumes, 



timing of the ignition, dwell angle of the 
points, condition of the plugs and adjustment 
of the tappets, ready for remedial action to be 
calculated by the software. Such a system 
could be interactive, with the micro giving 
instructions as to the direction and amount 
adjusting screws have to be turned and giving 
a warning when the correct adjustment is 
made. 

People /machine interfaces are the areas in 
which the possibilities for development are 
enormous. Even at the simple level of display- 
ing information this can range far beyond a 
numeric readout on a visual display unit or 
liquid crystal display, to full colour graphics. 
For example, a model railway control system 
could incorporate a module to let the user 
design the track layout on the screen and then 
carry out all of the control functions like 
changing points, selecting trains and control- 
ling speed by using a light pen and pointing at 
the screen. 

The micro has also opened up new possi- 
bilities for designing machines and control 
systems to help with all kinds of disabilities. 
Software control means that a single switch 
operation can start an extensive range of 
complex operations, such as controlling the 
selection of radio or television and then 
tuning either of them, adjusting the heating 
system, or turning room lights on and off and 
altering their intensity. Interesting develop- 
ments include wordprocessing without hav- 
ing to use the whole keyboard. And the 
technology of non-keyboard input and output 
devices is coming to the point where voice 
synthesis for the dumb, or voice and pattern 
recognition for the blind, are almost a reality. 



DETECTION 



All four of the main areas of computer control 
are interrelated, and have a number of com- 
mon elements. One of the most important is 
how computers get their information about 
the outside world. They do it rather like we 
do, through sensors. 

All our five senses of touch, smell, hearing, 
taste and sight are available to the micro, 
although they are not yet at such a so- 
phisticated level as the human equivalent. 
The micro also has the potential for some 
additional 'senses' like the ability to detect 
magnetic fields, atomic radiation, radio waves 
and other forms of electromagnetic radiation 
well outside the limits of our own eyes. 

In order to detect any of these, the com- 
puter needs a suitable external sensor. Among 
these suitable are ultrasonic detectors, tem- 
perature probes, thermostats, gas sensors, 
liquid flow sensors, proximity detectors, opt- 
ical sensors and switches of all different types 
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and sizes. Common sources include Radio 
Spares or Maplins, both of whose electronics 
component catalogues list hosts of interesting 
sensors. 

Whatever the sensor senses, it produces 
one of two types of electrical signal, either a 
digital one coded as binary words (or, in the 
case of a switch, volts or no volts) or an 
analogue one in which the level of voltage 
represents the quantity of whatever is being 
sensed. The important difference between 
these is that analogue signals can't be handled 
directly by the computer but have to be 
processed by an analogue-to-digital (A to D) 
converter. 

Some sensors have intelligence built into 
them. For example, an ordinary thermistor (a 
resistor whose electrical resistance varies with 
temperature) does not give a linear change of 
resistance with temperature change. For 
every degree rise in temperature, a different 
amount of change in resistance is produced. 
This has to be accounted for in any software 
using one of these devices. But there are also 
some intelligent temperature probes which 
work out the corrections and directly supply a 
linear voltage output — obviously at greater 
cost than a simple thermistor. 



ACTUATION 



To make things happen in the real world, the 
micro needs actuators — mechanical output 
devices. In most applications, the basic ac- 
tuator is linked to a mechanical operating 
system. Unlike the enormous range of sen- 
sors, there are only five main types of 
actuator: 

1. Pneumatic 

2. Hydraulic 

3. AC and DC electric motors 

4. Solenoids 

5. Stepper motors 

The pneumatic actuator is rather like a steam 
engine. It consists of a cylinder containing a 



piston connected to a driving rod. Com- 
pressed air can be directed to either end of the 
cylinder by an electrically operated valve, to 
force the piston up or down. The hydraulic 
actuator works on the same principle but uses 
a liquid instead of air. It works with more 
precision and can be more powerful. 

Ordinary AC and DC electric motors are 
widely available but are difficult to control 
with a micro. If a precision positioning has to 
be done, a sensor needs to be attached to the 
motor's shaft — usually a device to count the 
number of revolutions the shaft has made, 
indicating its speed and position. Some en- 
coders, as they are called, split each revolution 
up into hundreds of bits allowing very accu- 
rate control of the motor. 

Because of such complications, the solen- 
oid and stepper motor are the two actuators 
most frequently used in micro systems. This 
is because they only need to be switched on 
and off, a simple thing for the computer to do. 
A solenoid is an electromagnet which moves 
an armature of some kind. When an electric 
current passes through it the coil becomes 
magnetized and moves the armature — which 
can then be used as a control system. 

The stepper motor uses a number of 
solenoids to produce rotary movement like 
that of an ordinary electric motor. But 
although steppers are easy to use with a micro 
they do have the disadvantage of not being 



very powerful by comparison to similar-sized 
AC and DC motors. 

In order to understand how stepper motors 
work, it is easiest to think of a four-pole 
stepper motor with four electromagnets ar- 
ranged at right angles surrounding the rotor, 
an iron armature with two pole pieces which is 
free to revolve on a shaft. If one of the 
magnets is switched on, the rotor will be 
attracted to it and revolve to face it. If that one 
is switched off and a different one switched 
on, then the rotor will turn to face this one. If 
two adjacent coils are switched on, they will 
attract the rotor equally and it will move to a 
point mid-way between them. 

Now, if the micro switches each of the coils 
on in sequence, the rotor will revolve — the 
faster the switching, the faster the rotation. 
With the example of four coils, there are eight 
divisions to one full rotation, the four actual 
positions of the coils and the four positions 
between each pair. Real stepper motors use a 
great many coils, about two hundred in fact, 
so the rotation is very smooth and the rotor 
can be accurately positioned without the need 
for feedback sensors indicating its position. 



CONNECTIONS 



Most of the sensors and actuators supply or 
demand between five and twelve volts at quite 
high currents. They can't be connected dir- 
ectly to the input and output ports of a 
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computer because the micro only handles 
very small currents and would be damaged 
almost instantaneously. To solve this problem 
you need to use an interface and there are a 
number of commercial interfaces that enable 
the sensors and activators to be connected 
without even needing a soldering iron. 

These interfaces offer high current relay 
outputs, switch inputs, 8-bit output ports, 
high speed analogue to digital and digital to 
analogue convertors. Although A to D con- 
verters are built into some computers, extra 
ones are often needed because the on-board 
convertors do not have a very high sample 
rate. For example, the BBC micro has one 
that runs at 100 Hz and a lot of applications 
require much higher sample rates. D to A 
convertors produce continuously variable 
analogue outputs from the computer's digital 
signals, suitable for controlling the speed of 
DC motors or low-voltage lamps. 

Controlling mains equipment is even po- 
ssible with 'intelligent plugs' that are sent 
instructions through the mains itself. But you 
must never connect a micro to the mains 
without a proper interface. 



MECHANICAL SYSTEMS 



There are a number of answers to the problem 
of linking the actuator to a mechanical 
system — many of these make practical use of a 
range of toy model systems. Meccano and 
Technical Lego are both useful and Fis- 
chertechnik construction kits offer real en- 
gineering in miniature with all the compo- 
nents you could possibly want. 

Obviously, the greater the flexibility of the 
kit, the better — because mechanical linkages 
almost always need to be individually desig- 
ned for each application. Typically, you may 
need to gear the output of a motor up or 
down, or connect it to a system of levers and 
cranks in order to produce the correct motion. 



SOFTWARE 



Writing software for control systems is no 
harder than writing for any other application. 
The commercial interfaces make the control 
of external devices quite straightforward. It 
is, of course, very important to analyse the 
control problem carefully and break the soft- 
ware down into small parts or sub-sections 



that can be written and tested individually as 
procedures or subroutines. 

One of the difficulties of getting really 
interested in control projects is that it is 
inconvenient to have your micro permanently 
connected to your alarm or model railway 
layout. To overcome this you can even use a 
proper development system that connects to 
the micro and enables you to produce a 
dedicated single board computer specifically 
designed for the job. It is unlikely that such an 
application will need all of the facilities that 
make a complete home computer expensive. 

Development systems come with a range of 
hardware so that the computer can be tailored 
to the job. If the display is numeric then it 
doesn't need a CRT and graphics display 
controller, if the input requires only two 
buttons then it doesn't need an entire 
QWERTYUIOP keyboard. But if there are a 
number of analogue sensors then extra A to D 
convertors can be plugged in. Software 
supplied with these systems help you develop 
a program quickly and then enable it to be put 
into an EPROM (Erasable Programmable 
ROM) for permanent use. 
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Music 

background, program to play 
Acorn, Commodore 64 

1448-1449 

composer program 1333-1337, 

1392-1396, 1416-1423 







Operating system 



1322-1327 



P 

Pascal 



Peripherals, control of 

by micro 1552-1556 

PERT program 

1429-1433, 1466-1473 
Pointers, sprite 

Commodore 64 1260-1261 

Punctuation, 

when handling files 1360-1363 
with FORTH 

1484-1485, 1510-1511 
with LISP 1412 

with LOGO 1320-1321 

with Pascal 1354-1355,1391 



Q 



Quicksort program, recursive 

1293-1294 



R 



Recursion 

in BASIC 1289-1295 

in fractal programs 1398-1401, 

1434-1439 
in LISP 1458-1459 

in LOGO 1299-1300 

Room planner program 

1269-1275, 1308-1313 



Scissors, paper, stone games 

1502-1507 
Screen dumping, of graphics 

1365-1371 
Screens, in FORTH 1482, 1510 

Shading, with colour 1464-1465 

Sprites, Commodore 64 

moving and storing 1258-1263 
Sprites, LOGO 1317-1320 

Stack, manipulation of 

in FORTH 1484-1485 



Test card program 1474-1475 

Tool kit, to add commands 
to BASIC 

Commodore 64, Spectrum 

1525-1531 
Towers of Hanoi program 

1294-1295 
Turtle 1266-1268, 1296-1300 

u 

User-defined functions, 

in FORTH 1484 

in LISP 1456-1459 



V 



1352-1355, 1386-1391 



Variables, use of in FORTH 

1508-1510 
VIC-II chip 

Commodore 64 1258 

memory locations of 1262 

Vocabularies, in FORTH 

1484, 1510-1511 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 
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LJ Many popular forms of puzzle can be 
solved by applying mathematical techni- 
ques for dealing with complicated equ- 
ations. Find out how your micro can help 
with PUZZLE SOLVING, and look at some 
more serious applications for the 
techniques 

CJ The dungeon door has swung shut and 
unknown terrors lie in wait. COMPLETE 
THE ADVENTURE game program and 
start to make your escape 

Li Discover haw you can TUNE IN TO 
CODED MESSAGES and use your com- 
puter to catch a satellite 

O Look beyond the limits of the home com- 
puter to the wide world ofALTERNA TIVE 
LANGUAGES, and see what they might 
have to offer the micro user of the future 

LJ Let your computer take control by find- 
ing out how to CONTROL A STEPPER 
MOTOR 



O Plus a HEX DUMP and guide 
CHECKING CLIFFHANGER 



to 





ASK YOUR NEWSAGENT FOR INPUT 



